Flex Dashboard多筛选器与子筛选器实现问题求助

问题核心 #

你需要实现多选主筛选器（选择要筛选的列），并根据选中的每一列生成对应的子筛选器（选择该列的具体值），但原代码仅生成单个子筛选器，且逻辑未匹配多列需求。

修正后的完整实现代码 #

---
title: "动态筛选仪表盘"
output: flexdashboard::flex_dashboard
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
library(dplyr)

# 替换为你的真实数据
data <- tibble(
  states = c("CA", "NY", "TX", "CA", "NY"),
  numbers = c(1, 2, 3, 1, 2),
  years = c(2020, 2021, 2022, 2020, 2021),
  car_makes = c("Toyota", "Ford", "Honda", "Toyota", "Ford")
)

筛选面板 #

主筛选器（选择要筛选的列） #

selectInput(
  inputId = "selected_cols",
  label = "选择要筛选的列",
  choices = colnames(data),
  multiple = TRUE,
  selected = colnames(data)[1]
)

动态生成子筛选器 #

output$sub_filters <- renderUI({
  req(input$selected_cols) # 等待主筛选器选中有效值
  
  lapply(input$selected_cols, function(col) {
    selectInput(
      inputId = paste0("sub_filter_", col),
      label = paste("选择", col, "的值"),
      choices = sort(unique(data[[col]])),
      multiple = TRUE
    )
  })
})

uiOutput("sub_filters")

筛选后的数据展示 #

filtered_data <- reactive({
  req(input$selected_cols)
  
  result <- data
  # 遍历每一个选中的列，应用对应子筛选器的过滤规则
  for (col in input$selected_cols) {
    sub_input <- input[[paste0("sub_filter_", col)]]
    if (!is.null(sub_input) && length(sub_input) > 0) {
      result <- result %>% filter(.data[[col]] %in% sub_input)
    }
  }
  result
})

renderTable(filtered_data())

### 关键说明
1. **主筛选器**：`selected_cols` 用于指定需要开启筛选的列，支持多选。
2. **动态子筛选器**：
   - 用`lapply`遍历主筛选器选中的每一列，为每列生成独立的`selectInput`组件
   - 子筛选器ID采用`sub_filter_列名`格式，避免组件ID冲突
   - 每个子筛选器的选项自动读取对应列的唯一值并排序
3. **数据过滤逻辑**：
   - 遍历每个选中的列，读取对应子筛选器的选中值
   - 用`filter(.data[[col]] %in% sub_input)`实现多列联合筛选

### 原代码问题分析
- 仅生成单个子筛选器，无法匹配多选主筛选器的需求
- 逻辑判断混淆了不同数据源，未针对选中列动态获取对应数据的唯一值
- 未使用`req()`确保主筛选器有值后再执行后续逻辑，易引发空值错误

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