如何在flexdashboard元素中添加下拉菜单切换显示表格？

可以通过Shiny交互式组件实现需求，在flexdashboard中嵌入Shiny输入控件与渲染函数，就能通过下拉菜单切换不同物种的表格，同时保留始终显示的无关表格。

以下是修改后的完整代码：

---
title: "Titulo"
output: 
  flexdashboard::flex_dashboard
runtime: shiny  # 启用Shiny交互功能，必须添加
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(dplyr)
library(shiny)

Column {data-width=500} #

物种表格切换 #

# 创建下拉选择菜单
selectInput("species_select", "选择物种：",
            choices = c("setosa", "virginica", "versicolor"),
            selected = "setosa")

# 根据选择动态渲染表格
renderTable({
  iris %>% filter(Species == input$species_select)
}, rownames = FALSE)

Not related table #

cars

Column {data-width=500} #

BIG PLOT #

plot(cars, pch = 20)

关键说明：
- YAML头部必须添加`runtime: shiny`，开启flexdashboard的交互能力
- `selectInput`生成下拉选择控件，定义可选的物种选项
- `renderTable`响应下拉菜单的选择，动态过滤并渲染对应表格
- 无关表格`Not related table`不受交互逻辑影响，会始终固定显示在切换表格下方

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