R Shiny应用：实现单选按钮保存文件历史并复用数据可视化

当前代码的核心问题是仅在文件上传时读取数据，且未缓存已上传的文件内容——data()响应式对象只依赖input$file，切换单选按钮时不会触发数据重新加载，因为单选按钮的选中值没有和已上传数据关联起来。

需要用缓存容器存储所有已上传的文件数据，让单选按钮的选中值作为索引，直接从缓存中获取对应数据进行可视化。具体修改步骤如下：

• 替换原有的文件名存储容器，改用键值对结构同时保存文件名与对应数据
• 上传文件时将数据存入缓存，同步更新单选按钮选项
• 让数据过滤和可视化逻辑依赖选中的文件名，从缓存中提取对应数据后处理

library(shiny)
library(ggplot2)
library(dplyr)
library(readr)
library(lubridate)

shinyServer(function(input, output, session) {
  # 用reactiveValues缓存已上传的所有文件数据，键为文件名，值为对应数据框
  uploadedData <- reactiveValues()
  
  # 处理文件上传逻辑
  observeEvent(input$file, {
    req(input$file)
    file_name <- input$file$name
    file_data <- read.csv(input$file$datapath, stringsAsFactors = FALSE)
    
    # 将新上传的文件数据存入缓存
    uploadedData[[file_name]] <- file_data
    
    # 更新单选按钮选项：提取缓存中的所有文件名
    updateRadioButtons(session, "selectedOption", 
                      choices = c("", names(uploadedData)), 
                      selected = input$selectedOption)
  })
  
  # 过滤数据：依赖选中的文件名和日期范围
  filteredData <- reactive({
    req(input$selectedOption != "") # 确保选中了有效文件名
    data_filtered <- uploadedData[[input$selectedOption]]
    
    date_range <- input$dateRange
    if (!is.null(date_range)) {
      start_date <- as.POSIXct(date_range[1], format = "%Y-%m-%d", tz = "UTC")
      end_date <- as.POSIXct(date_range[2], format = "%Y-%m-%d", tz = "UTC")
      data_filtered <- data_filtered %>%
        filter(between(as.POSIXct(Start.Time), start_date, end_date))
    }
    data_filtered
  })
  
  output$userSearchPlot <- renderPlot({
    ggplot(filteredData(), aes(x = as.Date(Start.Time), fill = factor(User))) +
      geom_bar() +
      labs(title = "Number of User Searches Over Time",
           x = "Date",
           y = "Number of Searches",
           fill = "User") +
      theme_minimal() +
      scale_x_date(date_labels = "%Y-%m-%d", date_breaks = "1 day") +
      theme(axis.text.x = element_text(angle = 90, hjust = 1))
  })
  
  output$summaryText <- renderPrint({
    summary_data <- filteredData() %>%
      group_by(date = as.Date(Start.Time)) %>%
      summarise(NumUsers = n_distinct(User), NumSearches = n()) %>%
      as.data.frame()
    
    summary_label <- "Summary of User Searches Over Time"
    colnames(summary_data) <- c("Date", "Number of Users", "Number of Searches")
    
    cat(summary_label, "\n")
    print(summary_data)
  })
})

• 缓存机制：用reactiveValues()替代原有的文件名存储，同时保存文件名和对应数据框，避免重复读取文件
• 触发逻辑：filteredData现在依赖input$selectedOption，切换单选按钮时自动从缓存提取对应数据，无需重新上传
• 边界处理：添加req(input$selectedOption != "")确保只有选中有效文件时才执行后续逻辑

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