빈 파일 목록과 비어있는 파일 목록 만들기

Question

폴더에 많은 파일이 있는데 그 중 많은 파일이 비어 있고 다른 파일은 데이터가 들어 있습니다.

#Load all data in a list 
file_all <- list.files(file.path(getwd(), "testall"), pattern = "\\.txt$") 

, 내가 @nrussell How to skip empty files when importing text files in R?

library(plyr) 
df_list <- lapply(files, function(x) { 
    if (!file.size(x) == 0) { 
     list.files(x) 
    } 
}) 

그리고 (에 의해 설명 된 방법을 사용하여 빈 파일을 건너 뛰려고이 목록을 사용하여 :

는 난 할 노력하고있어 이것이다 빈 파일이 아님)

df_list2 <- lapply(files, function(x) { 
    if (file.size(x) == 0) { 
     list.files(x) 
    } 
}) 

@nusel과 내 사이의 차이점은 내가 원하는 것입니다. 비어있는 파일 목록과 비어있는 파일 목록을 다시 나열하십시오. 얼마나 많은 파일이 비어 있고 얼마나 많은 파일이 비어 있는지 알고 싶습니다.

Answer 1

# create a list of files in the current working directory 
list.of.files <- file.info(dir()) 

# get the size for each file 
sizes <- file.info(dir())$size 

# subset the files that have non-zero size 
list.of.non.empty.files <- rownames(list.of.files)[which(sizes != 0)] 

# here you can further subset that list by file name, eg - if I only want all the files with extension .mp3 
list.of.non.empty.files[grep(".mp3", list.of.non.empty.files)] 


# get the empty files 
list.of.empty.files <- rownames(list.of.files)[which(sizes == 0)]