R脚本cron任务执行if语句后.RData对象消失故障排查

你的问题出在多次使用save()单独保存变量时覆盖了.RData文件，导致后续加载时丢失了其他关键对象：

1. 首次运行时，load(".RData")加载了所有需要的对象（curtailing_200、last_decision_200、smp_vec等）。
2. 进入if分支后，你先执行save(curtailing_200, file=".RData")，这会直接覆盖原有的.RData，此时文件里只剩curtailing_200一个变量。
3. 紧接着又执行save(last_decision_200, file=".RData")，再次覆盖文件，现在.RData里只有last_decision_200。
4. 最后save.image()虽然会保存当前工作区，但此时工作区里已经没有smp_vec（因为第一次运行后没有重新生成，且原.RData被覆盖），所以下次脚本执行load(".RData")时，只能加载到last_decision_200，其他变量全部丢失，自然报错。

方案1：一次性保存所有需要持久化的变量 #

把需要保留的变量一次性保存，避免多次覆盖文件：

load("/home/ec2-user/R_Scripts/.RData")

# 你的打印和逻辑代码...

if ((length(smp_vec) == 31) && (mean(smp_vec) > 200) && (curtailing_200 == FALSE) && (now >= last_decision_200 )) {
  print("IF")
  curtailment_start_200()
  curtailing_200 = TRUE
  last_decision_200 = now
  
  # 一次性保存所有需要持久化的变量，包括原来的smp_vec（如果需要保留的话）
  save(list = c("curtailing_200", "last_decision_200", "smp_vec"), 
       file = "/home/ec2-user/R_Scripts/.RData")
}

注意：如果smp_vec是每次运行都需要重新生成的临时变量，就不要把它放进save的列表里，而是在脚本开头重新生成它，不要依赖.RData加载。

方案2：用save.image()统一保存整个工作区 #

如果工作区里所有变量都需要持久化，直接在修改后调用save.image()，不要单独用save()：

load("/home/ec2-user/R_Scripts/.RData")

# 你的打印和逻辑代码...

if ((length(smp_vec) == 31) && (mean(smp_vec) > 200) && (curtailing_200 == FALSE) && (now >= last_decision_200 )) {
  print("IF")
  curtailment_start_200()
  curtailing_200 = TRUE
  last_decision_200 = now
  
  # 直接保存整个工作区，覆盖原.RData
  save.image(file = "/home/ec2-user/R_Scripts/.RData")
}

这个方法更简单，但要确保工作区里没有无用变量，避免文件体积过大。

方案3：分离持久化变量和临时变量 #

把需要长期保存的状态变量（比如curtailing_200、last_decision_200）单独存在一个文件，临时变量（比如smp_vec）每次运行时重新生成：

# 加载状态变量
load("/home/ec2-user/R_Scripts/state_vars.RData")

# 重新生成临时变量smp_vec（根据你的业务逻辑实现生成逻辑）
smp_vec = your_custom_function_to_generate_smp()

# 你的打印和逻辑代码...

if ((length(smp_vec) == 31) && (mean(smp_vec) > 200) && (curtailing_200 == FALSE) && (now >= last_decision_200 )) {
  print("IF")
  curtailment_start_200()
  curtailing_200 = TRUE
  last_decision_200 = now
  
  # 只保存状态变量
  save(curtailing_200, last_decision_200, 
       file = "/home/ec2-user/R_Scripts/state_vars.RData")
}

这个方案最清晰，避免临时变量和状态变量互相干扰，推荐使用。

额外排查技巧 #

可以在脚本开头加一句print(ls())，打印当前工作区的所有对象，方便快速确认变量是否成功加载。

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