在Shiny中单击多个checkboxInput

library(shiny)

ui <- fluidPage(
  checkboxInput("option1", "选项1"),
  checkboxInput("option2", "选项2"),
  checkboxInput("option3", "选项3")
)

server <- function(input, output) {
  observeEvent(input$option1, {
    if (input$option1) {
      # 复选框选中时的操作
      # 可以在这里执行相应的代码
    } else {
      # 复选框取消选中时的操作
      # 可以在这里执行相应的代码
    }
  })
  
  observeEvent(input$option2, {
    if (input$option2) {
      # 复选框选中时的操作
      # 可以在这里执行相应的代码
    } else {
      # 复选框取消选中时的操作
      # 可以在这里执行相应的代码
    }
  })
  
  observeEvent(input$option3, {
    if (input$option3) {
      # 复选框选中时的操作
      # 可以在这里执行相应的代码
    } else {
      # 复选框取消选中时的操作
      # 可以在这里执行相应的代码
    }
  })
}

shinyApp(ui, server)