动作按钮与选择所有在Rstudio的闪亮工具

Question

我有以下闪亮小闪亮的应用程序。我创建了全选动作按钮。那么当我点击“全选”按钮时，如何选择全部（A1，...，C2）？

#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

这是你想要的吗？

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