在Rstudio

Question

我有一个闪亮的小闪亮应用程序。我创建了全选动作按钮。那么当我点击＆＃34;选择全部＆＃34;时，如何选择所有（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))