r - 将多个 .rda 文件加载到 r 中的列表中

Question

我已经运行了各种模型(glm、rpart、earth 等)并将模型对象从每个模型对象导出到我计算机上的一个文件夹中。所以我现在有一个文件夹，其中包含大约 60 个不同的模型，这些模型存储为单独的 .rda 文件。

这是通过创建一个模型函数然后通过 purrr 映射包将其应用于模型类型列表来完成的(以避免错误和终止)。

我现在想将它们加载回 r 并进行比较。不幸的是，当我编写初始模型脚本时，每个模型都存储为相同的即“Model.Object”(我不知道否则该怎么做)，因此当我尝试将每个模型单独加载到 r 时，它只是相互覆盖。每个文件都保存为 glm.rda、rpart.rda、earth.rda 等，但其中的模型被标记为 Model.Object(为了澄清)。

所以我想我有几个问题；
1. 可以将多个 .rda 文件加载到 r 中，然后可以将其编入索引
2. 如何更改已应用的模型函数，以便“model.object”名称读取为模型类型(例如 glm、rpart 等)

代码:

    Model.Function = function(Model.Type){

  set.seed(0)
  Model.Output = train(x = Pred.Vars.RVC.Data, y = RVC, trControl = Tcontrolparam,
                       preProcess = Preprocessing.Options, tuneLength = 1, metric = "RMSE",
                       method = Model.Type)

    save(Model.Object, file = paste("./RVC Models/",Model.Type,".rda", sep = ""))

  return(Model.Object)

}

Possibly.Model.Function = possibly(Model.Function, otherwise = "something wrong here")

result.possible = map(c("glm","rpart","earth"), Possibly.Model.Function)

Answer 1

现在，您现有文件的救援操作可能看起来像这样(遵循@nicola 关于使用 envir 参数到 load() 的评论):

rda2list <- function(file) {
  e <- new.env()
  load(file, envir = e)
  as.list(e)
}

folder <- "./RVC Models"
files <- list.files(folder, pattern = ".rda$")

models <- Map(rda2list, file.path(folder, files))
names(models) <- tools::file_path_sans_ext(files)

展望 future ，将模型保存为 .Rds 会更容易带有 saveRDS() 的文件而不是使用 save() .然后在加载文件时重新分配很容易。见例如 this question and answer有关此事的更多详细信息。