如何將 Rdata 文件內容加載到小標題中

Question

我有許多RData文件，其中存儲了特定信息。

for (filename in c("file1", "file2", "file3")) {
  
  a = tibble(letters = sample(LETTERS, 10),
              numbers = sample(1:100, 10))
  
  save(a, file = paste0("tmp/", filename, ".RData")) }

我現在想在嵌套的小標題中讀取存儲在這些文件中的數據以進行進一步分析。

但是，我不知道如何以最終的方式加載存儲在這些文件中的數據。

ndf <- tibble(path = list.files("tmp", full.names = TRUE),
              file = basename(path), 
              a = purrr::map(path, function(path) {
                load(path) # does not do what I want
              }))

然后我想繼續我的分析，例如

analysis <- ndf %>% 
  mutate(mean = purrr::map_dbl(a, function(a) mean(a$numbers)))

問題在於 load 旨在將檢索到的對象存儲在環境中，並且不返回檢索到的對象列表或類似的。 因此，似乎需要另一種解決方案。

Answer 1

由於load()不可見地返回加載的對象的名稱，您可以簡單地使用get()來引用該特定對象：

ndf <- tibble(path = list.files("tmp", full.names = TRUE),
              file = basename(path), 
              a = purrr::map(path, function(path) {
                load(path) %>% get
              }))