Пропустить пустые файлы внутри zip-файлов

Question

Я читаю много файлов .csv в файле .zip со следующим кодом

for (i in unzip("data.zip", list = TRUE)) {
    read.csv(unz("data.zip", i))
}

Проблема в том, что некоторые файлы .csv пусты, что приводит к no lines available in input ошибка, которая вызывает прерывание выполнения l oop. Как я могу пропустить эти пустые файлы?

Answer 1

Попробуйте это

flist <- unzip("data.zip", list=TRUE)

Теперь flist $ Length указывает длину каждого файла, например,

keep <- flist$Length > 100  # or some other value that indicates the file has no data

Теперь вы можете читать непустые и сохранять их в списке. :

AllFiles <- lapply(flist$Name[keep], read.csv)