如何基于存在性判断有条件保存R环境中的对象至RData文件

问题原因 #

你原来的写法不符合save函数的参数规则：save要求直接传入的待保存参数必须是当前环境中已存在的对象符号，不能直接嵌套条件判断表达式。如果对象不存在时，你写的if语句会返回NULL，会导致save要么执行报错，要么保存无效的NULL值。

实现代码 #

你可以借助save函数的list参数（支持传入字符格式的对象名向量）实现需求，完整示例如下：

# 1. 定义所有可能需要保存的对象名
target_objs <- c("object1", "object2")
# 2. 过滤出当前环境中真实存在的对象
existing_objs <- target_objs[sapply(target_objs, exists)]
# 3. 仅当有需要保存的对象时执行save操作，避免空文件报错
if (length(existing_objs) > 0) {
  save(
    list = existing_objs,
    file = "./my_saved_environment/saved_objects.RData"
  )
}

代码说明 #

• 把所有可能要保存的对象名统一放到target_objs向量里，后续要增减待保存对象只需要修改这个向量即可，不用调整后续逻辑
• sapply(target_objs, exists)会逐个判断每个对象名是否在当前环境中存在，返回布尔向量用来过滤
• 加length(existing_objs) > 0的判断是为了避免所有对象都不存在时，save执行报错的问题

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