чтение файлов из подкаталогов

Question

У меня есть подкаталоги с именем «0001» до «0999», в каждом из них есть файл с именем «abc.csv». Как просмотреть все эти файлы в списке?

Вот мой подход до сих пор:

abcs <- list() 
for(i in seq_len(999)) 
    eval(parse(text=paste0("abcs[[",i,"]] <- read.csv('~/mydir/0000",i,"/abc.csv')"))) 

Однако, я должен сделать это отдельно для каждого количества ведущих нулей.

Должен быть более простой способ, спасибо. Я знаю, что есть функция list.dir().

Answer 1

Просто используйте рекурсивный аргумент в list.files

list_of_files <- list.files("~/mydir/", pattern = ".csv", recursive = T) 
list_results <- lapply(list_of_files, read.csv) 

Это то, что вы ищете?

Answer 2

Как об этом? sprintf («% 04d», n) колодки нули перед номером до необходимой длины

abcs <- lapply(1:999, function(n) read.csv(paste0(sprintf("%04d", n),"/abc.csv")))