У меня есть список имен файлов, например, следующий разброс по подкаталогам в главном каталоге.
A.png
B.png
C.png
D.png
У меня есть вектор символов, доступный с именами файла:
filenames = c("A.png", "B.png", "C.png", "D.png")
В настоящее время я пытаюсь использовать lapply вместе с dir для поиска файлов следующим образом:
f1 <- function(x) dir("dirName", pattern = x, recursive = TRUE)
lapply(paste("*", filenames,sep=""), f1)
Однако это довольно медленная функция. Я подумал об использовании *.png, а затем сопоставил его, но решил отказаться от него, потому что у меня в каталоге много файлов png.
Есть ли другой, возможно, более эффективный способ сделать это?