使用saveRDS批量保存对象时仅存入名称的问题排查

你的代码中，files向量存储的是数据对象名称的字符串，直接将files[i]传入saveRDS()时，函数只会保存这个字符串本身，而不是字符串对应的实际数据对象。

方法1：使用get()函数获取实际对象 #

修改循环内的saveRDS调用，通过get(files[i])获取字符串对应的内存中的数据对象：

files <- c("df1", "df2", "df3")
path <- "~/location"

for (i in seq_along(files)) {
  target_obj <- get(files[i])
  saveRDS(target_obj, file = paste0(path, "/", files[i], ".Rds"))
}

提示：用seq_along(files)替代1:length(files)更安全，能避免files为空向量时出现无效序列的问题

方法2：用mapply()简化批量操作 #

可以省去for循环，直接用mapply实现批量保存：

files <- c("df1", "df2", "df3")
path <- "~/location"

mapply(function(name, file_path) {
  saveRDS(get(name), file = file_path)
}, files, paste0(path, "/", files, ".Rds"))

额外优化：添加对象存在性检查 #

如果担心部分对象不存在导致报错，可以加入判断逻辑跳过无效对象：

files <- c("df1", "df2", "df3")
path <- "~/location"

for (i in seq_along(files)) {
  obj_name <- files[i]
  if (exists(obj_name)) {
    target_obj <- get(obj_name)
    saveRDS(target_obj, file = paste0(path, "/", obj_name, ".Rds"))
  } else {
    warning(paste("对象", obj_name, "不存在，已跳过保存"))
  }
}

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