Shiny应用上传不同CSV时原有已处理数据丢失问题咨询

现有代码的核心问题 #

• 变量存储与作用域错误：你在server外定义的dat是普通全局数据框，在reactive内部执行dat <- rbind(dat, latest)时，实际创建了reactive内部的局部变量，并未修改外层的dat，导致每次上传新文件时，还是基于初始的空数据框做拼接，旧数据完全没有被留存。就算用超赋值符<<-修改全局变量，普通变量的变化也无法被Shiny的响应式系统感知，无法触发界面更新，同时多用户访问时全局变量会互相干扰。
• 响应式逻辑设计错误：你把数据读写、处理、存储的逻辑都写在了同一个reactive表达式里，reactive每次被触发都会从头执行，没有持久化存储历史数据的机制，自然无法实现数据累加。

修复方案 #

把累积数据存在Shiny原生的响应式变量中，用事件监听逻辑处理文件上传后的追加操作，修正后的server.R代码如下：

library(tidyverse)
library(shiny)
library(lubridate)

function(input, output) {
  # 定义响应式变量存储累积数据，每个会话独立，初始为空数据框
  accumulated_dat <- reactiveVal(data.frame(
    No. = as.numeric(),
    Time = as.numeric(),
    Scramble = as.character(),
    Date = as.POSIXct(as.character()),
    Mean = as.numeric()
  ))

  # 监听文件上传事件，新文件上传时触发处理
  observeEvent(input$file1, {
    inFile <- input$file1
    if (is.null(inFile)) return()

    # 处理新上传的文件
    latest <- read_csv2(inFile$datapath) %>% select(-Comment,-P.1)
    if (is.numeric(latest$Time)) {
      latest <- latest %>% mutate(
        Time = Time/1000,
        Mean = cummean(Time)
      )
    } else {
      latest$Time[!grepl(":",latest$Time, fixed = T)] <- paste0("0:", latest$Time[!grepl(":",latest$Time, fixed = T)])
      latest <- latest %>% mutate(
        Time = as.numeric(ms(Time)),
        Mean = cummean(Time)
      )
    }

    # 新数据追加到历史数据中，更新响应式变量
    updated_dat <- rbind(accumulated_dat(), latest)
    accumulated_dat(updated_dat)
  })

  # 渲染累积的所有数据
  output$contents <- renderTable({
    accumulated_dat()
  })
}

补充说明 #

• 上述代码中的cummean是对单次上传的数据集单独计算累积均值，如果你需要基于所有累积数据计算整体的累积均值，可以在追加数据后统一重新计算：在rbind之后加updated_dat <- updated_dat %>% mutate(Mean = cummean(Time))即可。
• ui.R代码不需要做任何修改，可直接沿用你现有版本。

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