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

Question

我想在一个闪亮的应用程序中包含一个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行时，它会按预期工作。