如何在R Shiny中实现dataframe的动态选择功能

你当前直接将包含完整数据框对象的列表ldf传入selectInput的choices参数，Shiny输入组件会自动展开复杂数据结构，不会将整个数据框作为单个选项处理，才会出现选中内容为数据框内部行的问题。

核心逻辑是将数据框的名称作为下拉选项，在服务端根据选中的名称从预定义列表中提取对应完整数据框即可，修正后的完整可运行代码如下：

# 加载依赖包
library(shiny)
library(readxl)

# 导入示例数据
Biomarker <- read_excel("C:\\Datasets\\Example1.xlsx")
Baseline <- read_excel("C:\\Datasets\\Example2.xlsx")
Mutation <- read_excel("C:\\Datasets\\Example3.xlsx")

# 构造命名数据框列表
ldf <- list(Biomarker = Biomarker, Baseline = Baseline, Mutation = Mutation)

# 前端UI
ui <- fluidPage(
  selectInput("dataset", label = "选择数据集", choices = names(ldf)),
  verbatimTextOutput("summary"),
  tableOutput("table")
)

# 后端服务逻辑
server <- function(input, output) {
  # 响应式获取选中的完整数据框
  target_df <- reactive({
    ldf[[input$dataset]]
  })
  
  # 输出数据框统计摘要
  output$summary <- renderPrint({
    summary(target_df())
  })
  
  # 输出数据框前几行预览
  output$table <- renderTable({
    head(target_df())
  })
}

# 启动应用
shinyApp(ui, server)

你后续所有针对选中数据框的操作，都可以基于target_df()这个响应式变量完成。

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