使用 selectizeInput，阻止选项列表在每次选择后关闭

Question

我正在尝试在 Shiny 应用程序中包含一个 selectizeInput 小部件。但是，其行为的一个方面是有问题的：每次我进行选择时，包含选择的框都会关闭。

我在这里查看了示例应用程序：http://shiny.rstudio.com/gallery/selectize-examples.html。具体来说，输入数字2：多选。在此示例中，选择窗口保持打开状态，但我发现该代码与我的代码之间没有任何差异，这可以解释行为差异。

为了一个可重现的例子，我整理了以下代码：

  ui <- fluidPage(uiOutput("example")) 

  server <- function(input, output, session){

                    output$example <- renderUI({

                                       selectizeInput(
                                                     inputId="people", 
                                                     label=NULL,
                                                     choices=paste("A", 1:50, sep="_"),
                                                     multiple = TRUE,
                                                     selected=input$people
                                                     )

                                                })

 } # close server

 shinyApp(ui = ui, server=server)

我的猜测是我遗漏了一些明显的东西，所以这里有机会为熟悉 Shiny 的人提供一个简单的答案。任何帮助将不胜感激。

Answer 1

当您删除 selected=input$people 行时，它会按预期工作。