Shiny应用开发：如何根据用户选择的Excel工作表生成统计摘要

下面是修正后的完整代码，解决了工作表选择后数据预览和统计结果不更新的问题：

library(shiny)
library(readxl)

ui <- fluidPage(
  titlePanel("Excel工作表分析工具"),
  sidebarLayout(
    sidebarPanel(
      fileInput("excel_file", "上传Excel文件", accept = c(".xlsx", ".xls")),
      selectInput("sheet_select", "选择工作表", choices = NULL)
    ),
    mainPanel(
      tabsetPanel(
        tabPanel("Data", tableOutput("data_preview")),
        tabPanel("Stats", textOutput("close_mean"))
      )
    )
  )
)

server <- function(input, output, session) {
  # 更新工作表选择列表
  observeEvent(input$excel_file, {
    req(input$excel_file)
    sheet_names <- excel_sheets(input$excel_file$datapath)
    updateSelectInput(session, "sheet_select", choices = sheet_names)
  })
  
  # 反应式读取选中的工作表数据
  selected_data <- reactive({
    req(input$excel_file, input$sheet_select)
    read_excel(input$excel_file$datapath, sheet = input$sheet_select)
  })
  
  # 展示数据前几行
  output$data_preview <- renderTable({
    head(selected_data())
  })
  
  # 计算并展示Close列的均值
  output$close_mean <- renderText({
    req(selected_data())
    if (!"Close" %in% colnames(selected_data())) {
      return("当前工作表不存在Close列")
    }
    mean_val <- mean(selected_data()$Close, na.rm = TRUE)
    paste("Close列均值：", round(mean_val, 2))
  })
}

shinyApp(ui, server)

关键修复点说明： #

• 反应式数据对象selected_data：用reactive()创建依赖于上传文件和选中工作表的反应式数据，确保每次切换工作表时，数据会重新读取并更新。
• req()存在性检查：在读取数据和生成输出前，用req()确保上传文件和选中工作表都已存在，避免空值引发的报错。
• 输出绑定反应式数据：数据预览和统计结果的渲染函数直接调用selected_data()，保证反应式数据更新时，输出自动同步刷新。
• 异常处理：增加了Close列存在性判断，避免因工作表结构不符合预期导致的运行错误。

适配你的Excel结构说明 #

如果你的Excel工作表中Close列存在大小写差异（比如close），只需调整代码中列名的判断和取值逻辑即可。

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