R Shiny checkboxGroupInput - 通过单击选择所有复选框

使用R Shiny的checkboxGroupInput函数可以创建一个复选框组，用户可以通过单击选择其中的复选框。这个功能可以在许多应用中使用，例如创建一个表单，让用户选择他们感兴趣的项目或选项。

R
library(shiny)
library(shinyWidgets)

R
ui <- fluidPage(
  checkboxGroupInput("colors", "选择颜色:",
                     choices = c("红色", "蓝色", "绿色", "黄色"))
)

R
server <- function(input, output) {
  observe({
    selected_colors <- input$colors
    
    if (length(selected_colors) > 0) {
      message <- paste("您选择了", length(selected_colors), "个颜色:")
      message <- paste(message, paste(selected_colors, collapse = ", "))
    } else {
      message <- "您没有选择任何颜色。"
    }
    
    showNotification(message)
  })
}

R
shinyApp(ui, server)

R
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
  checkboxGroupInput("colors", "选择颜色:",
                     choices = c("红色", "蓝色", "绿色", "黄色"))
)
server <- function(input, output) {
  observe({
    selected_colors <- input$colors
    
    if (length(selected_colors) > 0) {
      message <- paste("您选择了", length(selected_colors), "个颜色:")
      message <- paste(message, paste(selected_colors, collapse = ", "))
    } else {
      message <- "您没有选择任何颜色。"
    }
    
    showNotification(message)
  })
}
shinyApp(ui, server)