2016-02-25 40 views
0

我已經下載了運輸歷史數據。每年的數據包含具有完全相同名稱的相同數量的文件。每年的數據都壓縮在一個文件中。我正試圖自動化解壓縮的過程。
例如:我有三個zip文件(2014.zip,2013.zip,2012.zip),每個zip文件包含三個文件(car.csv,truck.csv,train.csv)。我想要的是將這些文件解壓縮到相應的文件夾中,這些文件夾將在運行中創建。我如何在RStudio中自動執行此過程?謝謝。如何自動化RStudio中的解壓步驟的過程

+0

只是好奇,您目前如何解壓縮它們,就您正在使用的程序或命令而言? – user454038

+0

我可以自動執行下載過程,但不能解壓縮過程。如果我無法自動執行此過程,我必須手動執行此操作。 –

+0

你正在運行什麼操作系統? – user454038

回答

0
lapply(filenames, function(x)){ 
foldername<-substr(filename, 1, nchar(filename)-4) 

if (file.exists(x)==FALSE){ 
    download.file(url, x) 
} 

if (file.exists(foldername)==FALSE){ 
    dir.create(foldername) 
} 

unzip(x) 

for (file in list.files(pattern="*.dbf")){ 
    file.copy(file,foldername) 

    file.remove(file) 
}}