Shiny会话中如何修改保存数据并实现同会话跨标签页调用

• 代码中定义的响应式容器my_data从未被更新：修改操作仅改动了全局变量user_base并持久化到磁盘，没有同步更新响应式值，同会话内其他标签页如果没有主动重新读取磁盘文件，只会拿到初始加载的旧数据。
• 直接修改全局环境的user_base存在多用户并发冲突风险：Shiny中全局变量是所有访问会话共享的，A用户的修改会直接影响同时间在线的B用户，不符合多用户使用的预期。

核心逻辑是会话内统一从响应式值读写数据，修改时先更新响应式值保证同会话实时同步，再写入磁盘保证新会话能加载到最新数据，所有用到该数据的位置统一调用响应式值，不要直接读取全局变量。

修正后的可运行代码如下：

# --------------- global.R ---------------
# 优先加载本地持久化的最新数据，不存在时使用原始初始数据
if (file.exists("user_base.RData")) {
  load("user_base.RData")
} else {
  # 替换为你原始加载user_base的逻辑，例如读csv、读数据库等
  # user_base <- read.csv("your_original_data_path.csv")
}

# --------------- server.R ---------------
server = function(input, output, session) {
  # 用初始数据初始化响应式值
  my_data <- reactiveVal(user_base)

  observeEvent(input$send, {
    # 先取当前响应式中存储的最新数据
    latest_data <- my_data()
    if (isTRUE(input$text4 != input$text5)) {
      # 定位要修改的行，更新对应值
      target_row <- which(latest_data[, 1] == input$text4)
      latest_data[target_row, 2] <- input$text5
      
      # 1. 更新响应式值：同会话所有调用my_data()的位置会自动刷新，切换标签页立刻拿到新值
      my_data(latest_data)
      # 2. 写入磁盘持久化：后续新启动的会话会加载到修改后的数据
      save(latest_data, file = "user_base.RData")
    }
  })

  # --------------- 其他标签页调用示例 ---------------
  # 所有需要用到该数据的渲染、计算逻辑，统一用my_data()获取，禁止直接调用全局的user_base
  # 例1：渲染表格
  # output$data_table <- renderTable({
  #   my_data()
  # })
  # 例2：做数据计算
  # output$stats <- renderText({
  #   nrow(my_data())
  # })
}

• 同会话内所有用到该数据集的位置必须调用my_data()，如果直接写全局变量user_base，永远拿不到会话内修改的最新值。
• 如果应用有多个用户同时访问，建议给磁盘写入操作加简单的文件锁，避免多用户同时写文件导致数据损坏，低访问量场景可忽略该配置。

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