R Shiny问题：无法访问reactive元素中列表内的变量

核心思路 #

要实现样本下拉菜单随复选框选择动态变化，关键是用reactive表达式过滤数据集，再通过updateSelectInput在server端动态更新下拉选项，而非在UI里固定写死选项。

完整修正代码示例 #

假设你的数据集包含sample（样本列）和group（用于过滤的列），以下是可直接运行的代码：

library(shiny)
library(shinyWidgets) # 用于带复选框的下拉菜单
library(dplyr)

# 模拟数据集
df <- tibble(
  sample = paste0("Sample_", 1:100),
  group = rep(c("Group_A", "Group_B", "Group_C"), length.out = 100)
)

ui <- fluidPage(
  # 带复选框的下拉过滤菜单
  pickerInput(
    inputId = "selected_groups",
    label = "选择分组过滤样本",
    choices = unique(df$group),
    multiple = TRUE,
    options = list(`actions-box` = TRUE, `selected-text-format` = "count > 3")
  ),
  # 样本选择下拉菜单（初始留空，后续动态更新）
  selectInput(
    inputId = "selected_sample",
    label = "选择样本",
    choices = NULL
  ),
  # 预览选中的样本（用于验证）
  textOutput("sample_info")
)

server <- function(input, output, session) {
  # 1. 响应式过滤数据集：根据选中的分组筛选样本
  filtered_samples <- reactive({
    # 确保有选中的分组才执行过滤
    req(input$selected_groups)
    df %>% filter(group %in% input$selected_groups)
  })
  
  # 2. 动态更新样本下拉菜单的选项
  observe({
    # 从过滤后的数据中提取唯一样本值作为选项
    sample_choices <- unique(filtered_samples()$sample)
    # 更新selectInput的选项
    updateSelectInput(
      session = session,
      inputId = "selected_sample",
      choices = sample_choices,
      # 可选：默认选中第一个样本
      selected = sample_choices[1]
    )
  })
  
  # 验证：打印选中的样本
  output$sample_info <- renderText({
    req(input$selected_sample)
    paste("你选中的样本是：", input$selected_sample)
  })
}

shinyApp(ui, server)

关键要点解释 #

1. reactive表达式过滤数据：filtered_samples()会自动监听input$selected_groups的变化，每次选中分组改变时，自动重新计算过滤后的数据集。
2. observe监听并更新下拉菜单：observe()会监听filtered_samples()的变化，一旦过滤后的数据更新，就调用updateSelectInput更新样本下拉的选项。
3. req()的作用：避免输入为空时出现报错，确保只有当用户选中至少一个分组后，才执行过滤和更新操作。

如果你的数据集结构不同，只需要修改filter()里的列名，以及pickerInput的choices对应的列即可。

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