如何在Shiny中根据selectInput选择读取不同Excel数据框？

你的代码核心问题出在变量作用域和反应式依赖逻辑上：observeEvent内部定义的data1是局部变量，外部的renderTable根本访问不到它；而且Shiny的输出组件需要依赖反应式对象才能实现自动更新。

基础版：单个数据框的修正 #

改用reactive()定义数据对象，它会自动监听input$selectData的变化，且返回值能被其他反应式组件正常访问：

library(shiny)
library(xlsx)

ui <- fluidPage(
  titlePanel("Reactive Dataframes"),
  sidebarLayout(
    sidebarPanel(
      selectInput(
        inputId = "selectData",
        label = "Select Data",
        selected = NULL,
        choices = c("mtcars", "iris")
      )
    ),
    mainPanel(
      tableOutput('table')
    )
  )
)

server <- function(input, output) {
  # 用reactive创建反应式数据对象
  data1 <- reactive({
    if (input$selectData == "mtcars") {
      read.xlsx('data/mtcars.xlsx', sheet = 1, startRow = 8)
    } else {
      read.xlsx('data/iris.xlsx', sheet = 1, startRow = 8)
    }
  })
  
  output$table <- renderTable({ 
    # 访问反应式对象必须加()
    data1() 
  })
}

shinyApp(ui = ui, server = server)

扩展版：每个选项读取12个数据框 #

如果每个选择项需要读取12个数据框，建议把它们封装在反应式列表里，既方便统一管理，也能简化后续数据处理逻辑：

library(shiny)
library(xlsx)

ui <- fluidPage(
  titlePanel("Reactive Dataframes"),
  sidebarLayout(
    sidebarPanel(
      selectInput(
        inputId = "selectData",
        label = "Select Data",
        selected = NULL,
        choices = c("mtcars", "iris")
      )
    ),
    mainPanel(
      # 示例：展示第一个数据框
      tableOutput('table1')
    )
  )
)

server <- function(input, output) {
  # 定义反应式列表，存储当前选项对应的12个数据框
  data_list <- reactive({
    # 根据选择项确定文件路径前缀
    file_prefix <- if (input$selectData == "mtcars") "data/mtcars_" else "data/iris_"
    # 批量读取12个文件（假设文件命名为 mtcars_1.xlsx、mtcars_2.xlsx...）
    lapply(1:12, function(idx) {
      read.xlsx(paste0(file_prefix, idx, ".xlsx"), sheet = 1, startRow = 8)
    })
  })
  
  # 示例：渲染第一个数据框
  output$table1 <- renderTable({ 
    data_list()[[1]] 
  })
  
  # 后续可按需添加更多输出，比如table2对应data_list()[[2]]，以此类推
}

shinyApp(ui = ui, server = server)

关键注意事项 #

• 反应式对象（reactive()返回的结果）必须通过()调用才能获取其实际值，比如data1()、data_list()[[3]]
• 如果你的12个文件命名规则和示例不同，可以调整lapply里的路径生成逻辑，或者直接用预定义的文件名向量遍历
• 用列表存储多数据框，能避免创建12个独立的反应式变量，让代码更简洁易维护

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