Я застрял с определенной задачей. Что мне нужно, так это функция, которая, учитывая путь к каталогу, будет возвращать рекурсивный список в качестве вывода.
Вывод должен иметь вид myList$dir$subdir$subdir$fullFilePath
Итак, в основном я хочу представить дерево каталогов в виде определенного списка. Я получаю все файлы, получаю все подкаталоги для каждого файла, но я застрял в том, как бросить все это в список с несколькими уровнями.
Вот решение с использованием рекурсии:
tree.list <- function(file.or.dir) {
isdir <- file.info(file.or.dir)$isdir
if (!isdir) {
out <- file.or.dir
} else {
files <- list.files(file.or.dir, full.names = TRUE,
include.dirs = TRUE)
out <- lapply(files, tree.list)
names(out) <- basename(files)
}
out
}
Я проверил это здесь, в небольшом каталоге
test.dir <- tree.list("./test")
test.dir
# $a
# $a$`1.txt`
# [1] "./test/a/1.txt"
#
# $a$aa
# $a$aa$`2.txt`
# [1] "./test/a/aa/2.txt"
#
# $b
# $b$`3.txt`
# [1] "./test/b/3.txt"
Если это слишком медленно для ваших нужд, я бы рассмотрел возможность чтения всех файлов в один вызов list.files с recursive = TRUE, а затем немного проанализировал.
Вот уродливый хак.
mypath <- 'a/b/c/d'
makelist <- function(filepath, fsep = '/'){
unlisted <- unlist(strsplit(filepath, fsep))
nsubs <- length(unlisted)
mylistcall <- paste(paste(rep('list(', nsubs), unlisted, collapse = '='),
'= NULL', paste(rep(')', nsubs), collapse = ''))
mylist <- eval(parse(text = mylistcall))
return(mylist)
}
makelist(mypath)
$a
$a$b
$a$b$c
$a$b$c$d
NULL
Вспоминая
fortune(106)
If the answer is parse() you should usually rethink the question.
-- Thomas Lumley
R-help (February 2005)
Однако в этом случае я бы сказал, что мне следует переосмыслить ответ.
fortune штука у тебя собирается?
- person Karolis Koncevičius; 18.11.2014
Вот более короткий вариант замечательного решения @flodel с использованием пакета purrr:
library( purrr )
tree_list <- function( file_or_dir ) {
f <- partial(list.files, full.names=TRUE, include.dirs=TRUE) %>%
compose(tree_list, .)
file_or_dir %>% set_names( basename(.) ) %>% map_if(dir.exists, f)
}
Первая строка определяет функцию f, которая расширяет свой аргумент, используя list.files( ..., full.names=TRUE, include.dirs=TRUE), а затем применяет tree_list() к расширению.
Вторая строка применяет определенную функцию f ко всем каталогам в исходном аргументе.
