小编Fab*_*ice的帖子

我有一个看起来像这样的集合：

{  
"value" : "20",
"type" : "square",
"name" : "form1"
}
{
"value" : "24",
"type" : "circle",
"name" : "form2"
}
{
"value" : "12",
"type" : "square",
"name" : "form3"
}

我想提取一个文档，name = form2所以我输入：

db.myCollec.find({"name":"form2"} , {"name":1, "type":1, "_id":0})

结果是：

{ "name" : "form2", "type" : "circle" }

现在，如果我想查找文档，name = form4请输入：

db.myCollec.find({"name":"form4"} , {"name":1, "type":1, "_id":0})

但这不会返回任何内容，因为没有具有该名称的文档。

但是我希望返回值看起来像这样：

{ "name" : "form4", "type" : null }

我该怎么做？

我想在 ModalDialog 中打印带有 textInput 和 textAreaInput 的 tagList() 。

然后在这个 ModalDialog 中，我想通过单击“+”图标来附加一个带有 textInput 和 textAreaInput 的新元素，将 ID 号增加到 1。

当 ModalDialog 出现时，第一个元素（ID 0）已使用 tagAppendChild 很好地创建，但单击“+”图标不会在我定义的 tagList 上使用observeEvent 和 tagAppendChild 添加第二个元素。

这是一个可复制的闪亮代码。

有什么线索吗？谢谢

ui <- fluidPage(   
        actionButton("open", "Modal") 
    )

server <- function(input, output, session) {   
    count <- reactiveVal(0) 
    my_list <- tagList()   
    observeEvent(input$open, {
        count(0)
        showModal(modalDialog(
          tagAppendChild(my_list, add_item(count())),
          actionButton(inputId = "add_entry", style = "border: 0px", label = NULL, icon("circle-plus")),
          footer = tagList(modalButton("Cancel"), actionButton("Ok", "OK"))
        ))   
    })

  add_item <- function(count) {
    return(
      tagList( …