如何在Shiny/R中用shinyWidgets的pickerInput创建带大洲分类的复选框？

原代码的问题 #

• selected =后未指定值，存在语法错误，需移除该参数或设置默认选中项
• 选项内容不符合大洲对应关系（如非洲分组下使用了美国州名）
• 缺少交互优化配置，用户体验较差

正确实现代码 #

以下是可正常运行的完整示例，包含真实大洲-国家分类及交互优化：

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  pickerInput(
    inputId = "continent_country_picker",
    label = "选择大洲及国家",
    choices = list(
      `非洲` = c("尼日利亚", "埃及", "南非"),
      `美洲` = c("美国", "加拿大", "巴西"),
      `亚洲` = c("中国", "日本", "印度"),
      `欧洲` = c("德国", "法国", "英国"),
      `大洋洲` = c("澳大利亚", "新西兰", "斐济")
    ),
    multiple = TRUE,
    # 若需默认选中项，取消注释并修改为目标值：
    # selected = c("中国", "美国"),
    options = pickerOptions(
      actionsBox = TRUE,          # 显示全选/取消全选按钮
      selectAllText = "全选",
      deselectAllText = "取消全选",
      liveSearch = TRUE,          # 启用实时搜索
      size = 10                   # 设置下拉框显示行数
    )
  )
)

server <- function(input, output) {
  # 示例：监听选中结果并打印到控制台
  observe({
    cat("选中的国家：", paste(input$continent_country_picker, collapse = ", "), "\n")
  })
}

shinyApp(ui, server)

关键修改说明 #

• 修正语法错误：移除未赋值的selected参数（或按需设置默认值）
• 替换为符合逻辑的大洲-国家分类
• 添加options配置提升交互性：全选按钮、实时搜索、固定下拉框高度
• 使用语义化的inputId和label，便于后续业务逻辑处理

内容的提问来源于stack exchange，提问作者Laura