如何使用devtools::use_data处理数据框列表并生成独立.rda文件？

你遇到的错误是因为devtools::use_data()默认需要操作全局环境中已命名的对象，而直接遍历列表元素时，这些元素并没有在全局环境中注册对应的名字，所以函数找不到要保存的对象。

下面是两种可行的解决方法，核心思路是先把列表中的每个元素转化为全局环境里的命名对象，再调用use_data()：

方法1：用purrr::iwalk（推荐，代码更简洁） #

iwalk可以同时遍历列表的元素和它们的名字，非常适合这个场景：

# 先确保你的列表是有命名的，如果没有可以先添加名字：
# names(my.list) <- paste0("my_df_", seq_along(my.list))

library(purrr)
iwalk(my.list, function(data_frame, element_name) {
  # 把当前数据框赋值到全局环境，名字用列表元素的名称
  assign(element_name, data_frame, envir = .GlobalEnv)
  # 调用use_data保存这个对象，overwrite=TRUE覆盖已存在的文件
  devtools::use_data(list = element_name, overwrite = TRUE)
  # 可选：保存后从全局环境删除临时对象，避免污染环境
  rm(list = element_name, envir = .GlobalEnv)
})

方法2：用base R的mapply #

如果不想加载purrr包，用base R的mapply也能实现同样效果：

# 确保列表有命名
# names(my.list) <- paste0("my_df_", seq_along(my.list))

mapply(function(data_frame, element_name) {
  assign(element_name, data_frame, envir = .GlobalEnv)
  devtools::use_data(list = element_name, overwrite = TRUE)
  rm(list = element_name, envir = .GlobalEnv) # 可选清理
}, my.list, names(my.list))

关键说明 #

• use_data()的list参数可以接受对象名的字符串，这样我们就能通过列表元素的名字指定要保存的对象，最终生成的.rda文件名也会和这个名字一致。
• 如果你不需要保留这些临时对象在全局环境，记得加上rm()那句代码清理。

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