如何在ShinyApp中实现Excel文件上传时选择指定工作表？

下面是完整的可实现代码，对应你设想的三步流程，同时优化了逻辑避免重复上传：

完整运行代码 #

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

ui <- fluidPage(
  titlePanel("Excel多工作表数据上传"),
  sidebarLayout(
    sidebarPanel(
      fileInput("file", "上传Excel文件",
                accept = c(".xls", ".xlsx")),
      selectInput("sheetnames", "选择工作表", choices = NULL)
    ),
    mainPanel(
      DTOutput("data_table")
    )
  )
)

server <- function(input, output, session) {
  # 存储上传文件的本地路径
  uploaded_file <- reactive({
    req(input$file)
    input$file$datapath
  })
  
  # 文件上传后自动更新工作表下拉选项
  observe({
    req(uploaded_file())
    sheet_names <- excel_sheets(uploaded_file())
    updateSelectInput(
      session = session,
      inputId = "sheetnames",
      choices = sheet_names,
      selected = sheet_names[1]  # 默认选中第一个工作表
    )
  })
  
  # 根据选中的工作表读取对应数据
  dat_selected <- reactive({
    req(uploaded_file(), input$sheetnames)
    read_excel(uploaded_file(), sheet = input$sheetnames)
  })
  
  # 渲染展示读取的数据
  output$data_table <- renderDT({
    dat_selected()
  })
}

shinyApp(ui, server)

关键逻辑说明 #

1. 文件路径存储：用uploaded_file响应式对象保存上传文件的本地路径，后续所有操作都基于这个路径，无需重复上传文件。
2. 工作表选项更新：通过observe监听文件上传事件，一旦文件存在，就调用excel_sheets()获取所有工作表名称，再用updateSelectInput更新下拉框选项，同时默认选中第一个工作表，兼容原有使用习惯。
3. 按需读取数据：dat_selected响应式对象依赖于文件路径和用户选中的工作表，只要这两个条件满足，就会自动读取对应工作表的数据，用户切换工作表时会实时更新展示内容。

注意事项 #

• 运行前确保安装了所需包：install.packages(c("shiny", "readxl", "DT"))
• 上传控件限制了仅接受.xls和.xlsx格式，避免非Excel文件导致的错误
• 用DT包渲染表格支持排序、搜索等功能，提升用户体验

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