Question

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

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

我已阅读相关的StackOverflow帖子，例如this one或this one，但在我的案例中没有解决方案。

我可以手动解压缩文件，但我想直接在RStudio中进行。有什么想法吗？

PD：.zip文件包含地理数据，即.dbf，.prj，.shp文件等。

谢谢！

Answer 1

它们不是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

我不知道是否有用于提取RAR档案的R函数。

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

Answer 2

好的，基于此post，我能够解决方案。

由于文件实际上不是.zip文件，并且由于7-zip支持手动提取文件，因此我寻找了一种在R中调用7-zip的方法。我刚发布的链接显示了如何做到这一点。

我修改了我的代码，现在文件被自动下载并解压缩。

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

如果有人能告诉我这个解决方案是否适合你，那真是太棒了！

无法在R中解压缩文件

2 个答案: