备选方案2：

对object-node使用+运算符

let $extra := 
  if (fn:exists($extraAttribute)) then
    object-node { "extra": $extraAttribute }
  else
    object-node {}
    
let $data := xdmp:to-json(
    object-node { 
      "query": array-node { $id }
    }
    + $extra
  )

我无法在没有错误的情况下内联$extra，所以我必须这样拆分它。
UPDATE：object-node()的+操作符返回了一个json:object，它不能被计算为$json/extra/fn:string()，所以我必须将转换添加回一个具有xdmp:to-json的对象节点。

备选方案1：

使用json函数

import module namespace json = "http://marklogic.com/xdmp/json"
    at "/MarkLogic/json/json.xqy";

let $dataRaw := 
<json type="object" xmlns="http://marklogic.com/xdmp/json/basic">
  <query type="array">
    <item type="string">{$id}</item>
  </query>
  {
  if (fn:exists($extraAttribute)) then
    <extra type="string">{$extraAttribute}</extra>
  else
    ()
  }
</json>

let $config := json:config("full")
let $data := json:transform-to-json($dataRaw) ! object-node()

我需要在最后使用! object-node()，因为被调用的函数需要一个object-node，但是json:transform-to-json生成了一个文档节点，其中包含一个对象节点。