R语言循环中断/意外关机时如何保存中间结果？

完整修改代码 #

# 初始化输出列表
output <- list()
# 设置保存路径（指向「我的文档」）
save_path <- file.path(Sys.getenv("USERPROFILE"), "Documents", "output_progress.rds")
# 记录上次保存时间
last_save_time <- Sys.time()

# 设置退出时自动保存（处理手动中断场景）
on.exit({
  saveRDS(output, file = save_path)
  cat("已保存截至当前的结果到:", save_path, "\n")
})

for (i in 1:999) {
  tryCatch({
    # 修正原代码的字符串拼接（补充必要引号）
    link_i <- paste0("www.some_website", i+1, "/some_extension/", i, ".com")
    material_i <- fromJSON(link_i)
    output[[i]] <- material_i
    
    # 检查是否触发定期保存（每5分钟一次）
    current_time <- Sys.time()
    if (difftime(current_time, last_save_time, units = "mins") >= 5) {
      saveRDS(output, file = save_path)
      cat("定期保存完成，当前迭代到第", i, "次\n")
      last_save_time <- current_time
    }
  }, error = function(e){
    # 可选：打印错误信息便于排查
    cat("第", i, "次迭代出错:", e$message, "\n")
  })
}

# 循环正常结束后保存最终结果
saveRDS(output, file = save_path)
cat("循环完成，已保存最终结果到:", save_path, "\n")

需求实现说明 #

1. 手动中断时保存进度 #

• 使用on.exit()函数，它会在当前脚本环境退出时（包括手动点击停止按钮、脚本意外中断）自动执行保存逻辑，将当前的output列表写入RDS文件，确保中断前的进度不会丢失。

2. 定期自动保存（应对意外关机） #

• 初始化last_save_time记录首次保存前的时间节点，每次迭代时计算当前时间与上次保存时间的差值。
• 当时间差≥5分钟时，执行saveRDS()保存当前结果，并更新last_save_time为当前时间，实现定时备份。
• 通过Sys.getenv("USERPROFILE")获取系统用户目录，配合file.path()拼接路径，确保保存路径指向「我的文档」，适配Windows系统通用路径规则。

额外提示 #

• 原代码中paste0的参数缺少引号，已修正为合法字符串格式，避免运行报错。
• 可根据需求调整定期保存的时间间隔（修改代码中5的数值，单位为分钟）。
• 错误处理中打印错误信息的逻辑可按需删除，不影响核心功能。

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