Directory 如何在RStudio中自动执行解压缩步骤

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

lappy（文件名、函数（x））{
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)
}}

FolderName只是好奇，就您使用的程序或命令而言，您目前是如何解压它们的？我可以自动完成下载过程，但无法完成解压过程。如果无法自动完成此过程，我必须手动完成。您运行的是什么操作系统？我使用的是windows 7，RStudio版本0.99.491我解决了它，下面是代码