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)))
}

如何附加两个以上的文件路径（与append（）相同）

1 个答案: