R Shiny 基于checkbox选项过滤pickerInput下拉框国家选项的实现问题

原有代码核心问题 #

• 判断条件未取输入控件值，直接写filterLMIC == TRUE会触发变量未定义报错
• 更新下拉选项时错误将choices赋值为LMIC列，应为筛选后的国家名称
• choicesOpt逻辑不符合需求，不需要禁用选项，直接替换可选列表即可

实现逻辑 #

勾选「Filter LMIC」复选框时，下拉框仅展示LMIC值为YES的国家；取消勾选时展示全部国家，同时保留已选中的国家（如果该国家在新的可选列表内）。

修正后完整代码 #

UI部分（和原有代码基本一致，补全闭合标签即可） #

div(
  id = "dashboard",
  pickerInput(
    inputId = "selectedCountry",
    labelMandatory ("Country"), 
    choices = population$Country,
    multiple = FALSE,
    selected = "Czech Republic",
    options = pickerOptions(
      actionsBox = TRUE,
      title = "Please select a country"
    )
  ),
  checkboxInput(inputId = "filterLMIC", label = strong("Filter LMIC"), value = FALSE)
)

Server部分 #

observeEvent(input$filterLMIC, {
  # 根据复选框状态筛选国家列表
  if (input$filterLMIC == TRUE) {
    # 筛选LMIC为YES的国家
    target_countries <- population$Country[population$LMIC == "YES"]
  } else {
    # 未勾选时展示全部国家
    target_countries <- population$Country
  }
  
  # 保留原有选中值（如果仍在可选列表内）
  current_selected <- input$selectedCountry
  if (!current_selected %in% target_countries) {
    current_selected <- target_countries[1]
  }
  
  # 更新下拉框
  updatePickerInput(
    session, 
    inputId = "selectedCountry",
    choices = target_countries,
    selected = current_selected
  )
})

扩展说明 #

如果需要实现切换展示LMIC=YES/NO的国家，可将复选框替换为单选按钮组，按以下方式修改：

1. UI中替换复选框为：

radioButtons(inputId = "lmic_filter_type", label = strong("筛选LMIC国家"), 
             choices = c("全部国家", "LMIC=YES", "LMIC=NO"), selected = "全部国家")

2. Server中把observeEvent的触发对象改为input$lmic_filter_type，按单选值筛选对应国家即可。

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