R Shiny应用重启或重跑查询时如何保留已编辑dataframe的列值

你当前的逻辑是每次重新运行查询时，都会生成附带空值新增列的新数据集，直接覆盖本地的data.rds文件，因此之前在应用中编辑保存的自定义列值会被空值覆盖，重启应用读取到的自然是清空后的数据。该需求不需要多个文件即可实现，仅需要调整数据初始化的合并逻辑即可。

1. 调整查询后的数据处理逻辑 #

核心逻辑是：拉取数据库最新数据后，先读取本地已保存的rds文件，将旧文件中的自定义列值匹配到新查询的数据上，再保存合并后的结果，避免直接用空值覆盖历史编辑内容。
首先需要确认你的数据集存在唯一标识每行的业务主键（比如订单ID、编号等不会重复的字段，以下示例假设主键列名为id，如果没有主键可暂时用行号替代，稳定性略差）。
代码示例：

# 从数据库拉取最新的原始查询数据
data_new <- dbGetQuery(q_r, sql)

# 定义你新增的自定义列名
custom_cols <- c("R/Y/G", "R", "Y", "G", "tcolor")

if (file.exists("data.rds")) {
  # 读取本地保存的带历史编辑值的旧数据
  data_old <- readRDS("data.rds")
  # 关联主键，将旧数据的自定义列值合并到新查询的数据集上
  library(dplyr)
  data1 <- left_join(
    x = data_new,
    y = data_old[, c("id", custom_cols)], # 仅保留主键和自定义列避免冲突
    by = "id"
  )
  # 给新查询出的、历史不存在的行初始化空值
  data1[custom_cols][is.na(data1[custom_cols])] <- " "
} else {
  # 首次运行无历史文件，直接初始化自定义列
  data1[custom_cols] <- " "
}

# 保存合并后的完整数据
saveRDS(data1, "data.rds")

2. 调整应用启动逻辑 #

将上述的查询+合并逻辑放到应用启动时仅执行一次（比如放在global.R中，或者server函数外），不要放在server函数内部每次用户访问都重复执行，避免多用户访问时出现数据覆盖冲突。
你现有Shiny服务端的编辑回写逻辑不需要修改，已经可以正常将编辑后的内容保存到rds中。

如果担心查询逻辑异常导致历史编辑值被覆盖，可以拆分两个文件独立存储：

• source_data.rds：仅存储从数据库查询到的原始数据
• custom_data.rds：仅存储主键列和5个自定义列的编辑值
  合并逻辑和上述一致，两个文件独立更新，自定义编辑值不会被源数据查询逻辑影响，稳定性更高。

注意：如果没有业务主键，且每次查询返回的行顺序、行数量完全固定，也可以用行号作为匹配依据，但不建议长期使用，源数据行顺序变动会导致值匹配错误。

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