Aktionstaste mit wählen Sie alle in glänzend Werkzeug von Rstudio

Question

Ich habe die folgenden glänzend für eine kleine glänzende App. Ich habe die Schaltfläche zum Auswählen aller Aktionen erstellt. Wie kann ich dann alle (A1, ..., C2) auswählen, wenn ich auf "Alles auswählen" klicke?

#ui script 
library(shiny) 
fluidPage(
    selectizeInput("select", "Select multiple", multiple = T, 
    choices = c("A1", "A2", "B1", "B2", "C1", "C2")), 
    actionButton("selectall", "Select all:") 
) 
#server script 
server <- function(input, output){ 
} 

Answer 1

Ist das was du willst?

rm(list = ls()) 
library(shiny) 
mychoices <- c("A1", "A2", "B1", "B2", "C1", "C2") 

ui <- fluidPage(
    selectInput("campaigns", "Choose campaign(s):", multiple = T, choices = mychoices), 
    actionButton("selectall", "Select all:") 
) 
server <- function(input, output, session) { 
    observeEvent(input$selectall,{ 
    if (input$selectall%%2 == 0){ 
     updateSelectInput(session,"campaigns","Choose campaign(s):",choices=mychoices) 
    } 
    else{ 
     updateSelectInput(session,"campaigns","Choose campaign(s):",choices=mychoices,selected=mychoices) 
    } 
    }) 
} 
runApp(list(ui = ui, server = server))