Как добавить более 2 ПУТЕЙ ФАЙЛА (так же, как append ())

Question

Текущий метод слишком избыточен, чтобы склеивать каждый список один за другим.

# CURRENT METHOD
FL_PATH_1 <- list.files(path = "~/MY_FOLDER_1"),
                              pattern = "*.CSV",full.name = T)
FL_PATH_2 <- list.files(path = "~/MY_FOLDER_2"),
                              pattern = "*.CSV",full.name = T)
FL_PATH_3 <- list.files(path = "~/MY_FOLDER_3"),
                              pattern = "*.CSV",full.name = T)

FL_PATH_BP_A <- append(FL_PATH_1 ,FL_PATH_2)
FL_PATH_BP_A_2 <- append(FL_PATH_BP_A,FL_PATH_3)

DT <- rbindlist(lapply(FL_PATH_BP_A_2 ,import,header=T,sep=",",
                          setclass = "data.table"))

Есть ли эффективный и гибкий метод для решения этого случая?* каждый список должен быть list.files (), так как они принимают все файлы в определенной папке

Answer 1

folders <- c("folder1","folder2","folder3")
files <- c()
for (folder in folders) {
  files <- c(list.files(folder, pattern = "*.CSV",full.name = T)))
}