如何在flexdashboard/Shiny中创建依赖下拉选择的响应式表格

直接给你修正后的完整代码，再说明关键修改点：

---
title: "Dashboard Test"
output:
  flexdashboard::flex_dashboard:
    orientation: columns
    social: menu
    vertical_layout: fill
    css: style.css
runtime: shiny
---

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

# 把数据读取放在setup块，仅在仪表盘启动时加载一次
data <- read.csv("./species_traits_summary.csv")

Inputs {.sidebar data-width=250} #

Dashboard Test

Use the Search Bar to select your species of interest. Trait data (growth form, dormancy type, seed mass, germination treatment and seed length) will update to suit your selection.
 
 

Species

selectizeInput(
  inputId = "searchme", 
  label = "Search Bar",
  multiple = TRUE,
  choices = unique(data$Species),
  options = list(
    create = FALSE,
    placeholder = "Search Me",
    onDropdownOpen = I("function($dropdown) {if (!this.lastQuery.length) {this.close(); this.settings.openOnFocus = false;}}"),
    onType = I("function (str) {if (str === \"\") {this.close();}}"),
    onItemAdd = I("function() {this.close();}")
  )
)

Column #

# 创建响应式过滤数据对象
filtered_data <- reactive({
  # 匹配原数据列名Species，用%in%支持多选
  data %>% filter(Species %in% input$searchme)
})

# 渲染动态更新的表格
renderTable({
  filtered_data()  # 调用响应式对象必须加括号
})

### 关键修改说明：
1. **数据读取优化**：将`read.csv`移到`setup`代码块，避免每次交互重复读取CSV，提升运行效率。
2. **响应式逻辑修正**：你之前的`reactive`语法错误，正确写法是用`reactive()`包裹过滤表达式，返回处理后的数据集。
3. **变量名匹配**：原数据框是`data`、列名是`Species`，要和CSV里的实际列名完全一致（注意大小写），你之前用的`df`和`species`是错误的变量名。
4. **动态渲染实现**：用`renderTable()`调用响应式对象`filtered_data()`，每次选择物种时表格会自动更新。

如果需要在未选择任何物种时显示全部数据，可以修改响应式逻辑：
```r
filtered_data <- reactive({
  if (is.null(input$searchme)) {
    data
  } else {
    data %>% filter(Species %in% input$searchme)
  }
})

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