无法在 R 中解压缩文件

Can´t unzip file in R

我从某些 URL 下载了一些数据,但我无法解压缩任何下载的文件,我不明白为什么。下载数据的代码如下

library(downloader)
path <- getwd()
for(i in 1:15){
fileName <- sprintf("%02d",i)
if (!file.exists(paste0(fileName,".zip"))) {
urlFile = paste0("http://www.censo2017.cl/wp-content/uploads/2016/12/R", 
fileName,".zip")
download(urlFile, dest = paste0("./R",fileName, ".zip"), mode ="wb")
 }
}

然后我有 15 个 zip 文件,名称为: R01.zip R02.zip ...等等,但是当我使用

unzip(R01.zip)

或尝试解压缩任何其他文件,我收到以下错误 Warning message: In unzip("R01.zip") : error 1 in extracting from zip file

我已阅读相关的 Whosebug 帖子,例如 this one or this one,但没有解决方案适用于我的情况。

我可以手动解压缩文件,但我想直接在 RStudio 中解压缩。有什么想法吗?

PD: .zip 文件顺便包含地理数据,即.dbf、.prj、.shp 文件等

谢谢!

它们不是 zip 文件,它们是 RAR 压缩文件:

$ unrar v 01.zip

UNRAR 5.00 beta 8 freeware      Copyright (c) 1993-2013 Alexander Roshal

Archive: 01.zip
Details: RAR 4

 Attributes      Size    Packed Ratio   Date   Time   Checksum  Name
----------- ---------  -------- ----- -------- -----  --------  ----
    ..A....      1213       240  19%  23-11-16 16:12  C6C40C6D  R01/Comuna.dbf
    ..A....       151       138  91%  23-11-16 16:12  A3C83CE4  R01/Comuna.prj
    ..A....       212       165  77%  23-11-16 16:12  01752C2A  R01/Comuna.sbn
    ..A....       132       101  76%  23-11-16 16:12  C4CA93A2  R01/Comuna.sbx

不知道R有没有解压RAR压缩包的功能

他们可能不应该使用 .zip 文件扩展名,而应该使用 .rar。我在命令行上使用 unrar 提取了上述内容。

好的,基于此post我能够解决一个解决方案。

由于文件实际上不是 .zip 文件,而且 7-zip 支持手动提取文件,因此我寻找了一种在 R 中调用 7-zip 的方法。我刚刚发布的 link 显示怎么做。

我修改了我的代码,现在文件会自动下载和解压缩。

# load neccesary packages
library(downloader)
library(installr)
install.7zip(page_with_download_url = "http://www.7-zip.org/download.html")

# download data and unzipped data
path <- getwd()
for(i in 1:15){   # the files correspond to administrative regions of Chile
                  # there are fifteen of them and they are ordered.
fileName <- sprintf("%02d",i) # adding leading zeros to the index if 
                              # the index number is of one digit
if (!file.exists(paste0("R",fileName,".zip"))) { # download only 
                                                 # if file is not already
                                                 # downloaded
urlFile = paste0("http://www.censo2017.cl/wp-content/uploads/2016/12/R", 
          fileName,".zip") # specifying url address
download(urlFile, dest = paste0("./R",fileName, ".zip"), mode ="wb")
} # download file
if (!file.exists(paste0("R",fileName))){ # if file is not already unzipped,
                                         # unzip it
z7path = shQuote('C:\Program Files (x86)\7-Zip\7z')
file = paste0(getwd(), "/", "R", fileName, ".zip")
cmd = paste0(z7path, ' e ', file, ' -y -o', paste0(getwd(),"/R", fileName), 
      '/')
shell(cmd)
 }
}

如果有人能告诉我这个解决方案是否也适用于您,那就太好了!