R의 lapply 출력에서 ​​특정 파일을 얻는 방법은 무엇입니까?

Question

꽤 빠른 것 같다 이런 식으로 파일을 읽고있다 :

dirPath = paste0("D:/test") 
setwd(dirPath) 
SF <- list.files(recursive=T, pattern=paste(".csv"), full.names=TRUE) 
myfiles = lapply(SF, fread) 

SF는 다음과 같은 데이터를 반환

./SubFolderA/1.csv 
./SubFolderA/2.csv 
./SubFolderA/3.csv 

./SubFolderB/1.csv 
./SubFolderB/2.csv 
./SubFolderB/3.csv 

그래서, 나는 각 하위 폴더 안에 3 개 CSV 파일과 두 개의 하위 폴더가 있습니다. CSV 파일의 수는 항상 하위 폴더에서 동일합니다.

질문 : myfiles이 주어지면 SubFolderB 내부에있는 CSV 파일을 어떻게 선택합니까? 이 하위 폴더의 1.csv, 2.csv 및 3.csv에 개별적으로 액세스해야합니다.

Answer 1

list.files()은 문자 벡터를 반환하기 때문에 grep과 같은 함수를 사용하여 목록의 특정 값을 검색 할 수 있습니다. 당신이 "SubFolderB"에있는 파일을 찾으려면 (방금 다시 실행하려면 list.files()을 그 디렉토리에 원하지 않는) 경우, 그 다음이 파일이 있다고 가정하는 정말 좋은 생각이 아니다

foldB <- grep("/SubFolderB/", SF, value=T) 
foldB 
# [1] "./SubFolderB/1.csv" "./SubFolderB/2.csv" "./SubFolderB/3.csv" 

을 수행 할 수 있습니다 특정 순서로 반송됩니다. 따라서 각 파일의 "ID"를 알고 싶다면 파일 이름 자체에서 해당 정보를 구문 분석하는 것이 좋습니다. 예를

gsub("\\.[^.]*$","",basename(foldB)) 
# [1] "1" "2" "3" 

위해 우리는 폴더 정보를 제거 basename()를 사용하여, 우리는 파일 확장자를 제거 gsub()를 사용합니다.