Question

我已下载了运输历史数据。每年的数据包含具有完全相同名称的相同数量的文件。每年的数据都压缩在一个文件中。我试图自动化解压缩过程。
例如：我有三个名为（2014.zip，2013.zip，2012.zip）的zip文件，每个zip文件包含三个文件（car.csv，truck.csv，train.csv）。我想要的是将这些文件解压缩到将在动态创建的相应文件夹中。如何在RStudio中自动执行此过程？谢谢。

Answer 1

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)
}}

如何自动化RStudio中解压缩步骤的过程

1 个答案: