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

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

我在这里查看了示例应用程序：。具体来说，输入数字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)

---

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