使用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) 

我的猜測是，我失去了一些東西很明顯，所以這裏是一個簡單的回答一個機會，有人知道他們圍繞着閃亮的方式。任何幫助將不勝感激。

Answer 1

當您刪除selected=input$people行時，它按預期工作。