Shiny R下拉框筛选多数据框失效：CSV读取正常但预存数据框不生效

问题根因 #

你的问题核心是Shiny中字符串变量名和实际内存对象不匹配：
下拉选择控件selectInput的返回值永远是字符串类型，你提前预读为data.frame后，下拉框的选项只是对应data.frame的名称字符串，不是内存里实际的data.frame对象，直接传给渲染函数自然无法识别。
而你之前直接读取CSV/Excel的实现可以正常运行，是因为选中下拉选项后直接触发了读文件逻辑，返回的是实际的data.frame对象，不存在字符串转对象的步骤。

解决方案 #

方案1：用命名列表存储预加载的data.frame（最推荐） #

结构清晰易维护，后续新增报表仅需修改列表即可，无需调整UI配置：

library(shiny)
library(readxl)
library(DT)

# 预读所有报表存入命名列表，键名即为下拉框选项
preload_reports <- list(
  销售报表 = read.csv("sales_report.csv"),
  库存报表 = read_excel("stock_report.xlsx"),
  财务报表 = read.csv("finance_report.csv")
)

ui <- fluidPage(
  selectInput("report_select", "选择要查看的报表", choices = names(preload_reports)),
  DTOutput("report_table")
)

server <- function(input, output) {
  output$report_table <- renderDT({
    # 按选中的键名直接从列表取实际data.frame对象
    preload_reports[[input$report_select]]
  })
}

shinyApp(ui, server)

方案2：用get()函数解析字符串对应的全局对象 #

如果你的data.frame已经提前定义在全局环境中，不想调整存储结构，可以用get()直接把字符串转为对应对象：

library(shiny)
library(readxl)
library(DT)

# 预读报表存入全局环境变量
sales_df <- read.csv("sales_report.csv")
stock_df <- read_excel("stock_report.xlsx")
finance_df <- read.csv("finance_report.csv")

ui <- fluidPage(
  selectInput("report_select", "选择要查看的报表", 
              choices = c("销售报表" = "sales_df", "库存报表" = "stock_df", "财务报表" = "finance_df")),
  DTOutput("report_table")
)

server <- function(input, output) {
  output$report_table <- renderDT({
    # 把选中的字符串转为对应全局环境中的data.frame
    get(input$report_select)
  })
}

shinyApp(ui, server)

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