Импорт нескольких файлов R в список и сохранение каждого элемента в качестве имени файла для извлечения

Question

Я хочу импортировать несколько файлов rds из определенной папки в список и сохранить эти кадры данных в списке как их имя файла. Например, предположим, что у нас есть два файла в папке: apple.rds и pears.rds.

Чтобы импортировать их, у меня есть:

df_list <- list.files(pattern = "*.rds") %>%
  map(readRDS)

Но они сохраняются как df_list [1] и df_list [2], когда я хочу, чтобы они были df_list [яблок] и df_list [груши], чтобы позже я мог получить эти кадры данных по их имени. Как я могу это сделать?

Answer 1

Это должно работать:

flist <- list.files(pattern = "\\.rds$")

df_list <- setNames(lapply(flist, readRDS), tools::file_path_sans_ext(flist))

Answer 2

names(df_list) <- list.files(pattern = "*.Rds")