Mit selectizeInput, stoppen Sie die Liste der Optionen aus dem Schließen nach jeder Auswahl

Question

Ich versuche, ein SelectizeInput Widget in eine Shiny App zu integrieren. Ein Aspekt seines Verhaltens ist jedoch problematisch: Jedes Mal, wenn ich eine Auswahl treffe, wird das Feld mit den Auswahlmöglichkeiten geschlossen.

Ich habe mir die Beispiel-App hier angesehen: http://shiny.rstudio.com/gallery/selectize-examples.html. Insbesondere Eingabe Nummer 2: Mehrfachauswahl. Das Auswahlfenster bleibt in diesem Beispiel offen, aber ich sehe keine Unterschiede zwischen diesem und meinem Code, was die Abweichung im Verhalten erklären würde. also hier ist eine Chance für eine einfache Antwort für jemanden

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) 

Meine Vermutung ist, dass ich etwas offensichtlich, bin fehlt, der weiß:

Im Interesse eines reproduzierbaren Beispiel habe ich den folgenden Code zusammen ihren Weg um Shiny. Jede Hilfe wird sehr geschätzt.

Answer 1

Wenn Sie die selected=input$people Zeile entfernen, funktioniert es wie gewünscht.