Zipping sehr viele Dateien in r

Question

Ich habe 7300 * .csv-Dateien in einem temporären Verzeichnis. Ich möchte diese in ein Zip-Archiv in R komprimieren. Ich verwende den folgenden Code, der FOREVER übernimmt. Gibt es eine Möglichkeit, dies schneller zu machen, ohne R zu beenden und das WinZip-Programm zu verwenden?

fileListing  = list.files(pattern = '*.csv') 
outZipFileName = gsub('.zip', '_TZflts.zip', zipName) 
sapply(seq_along(fileListing),function(ii) zip(outZipFileName, fileListing[ii])) 

Ein weiteres Problem besteht darin, dass der Zip-Prozess im Code Tonnen Müll Dateien laicht neben der Zip-Datei und sein csv Inhalt.

Vielen Dank.

BSL

Answer 1

Sie müssen nicht durch die Dateien in einer Schleife, werden gezippt zip kann einen Vektor der Dateien nehmen: dies sollte die Dinge beschleunigen. Von ?zip

Dateien ist: 'Ein Zeichenvektor von aufgezeichneten Dateipfaden enthalten sein.'

Beispiel

# write some files to be zipped 
for(i in 1:10) write.csv(mtcars, paste0("SOtemp", i, ".csv")) 

# zip 
zip("SOzip", files=list.files(pattern="SOtemp\\d")) 

# remove files from this example 
# file.remove(c("SOzip.zip", list.files(pattern="SOtemp\\d")))