R Studio-0.99.451：如何解压缩文件夹并将文件粘贴到目标文件夹

Question

我正在尝试提取（解压缩）文件夹（即“pakistan.zip”，其中包含 5 个文件 Pak_admin0.shp、Pak_admin0.shx、Pak_admin0.dbf、Pak_admin0.prj、Pak_admin0.qpj）并复制 .shp 文件, .shx, .dbf 文件从该文件夹到目标文件夹，使用 Rstudio 0.99.451 版本，代码如下：

for(j in list(".shp", ".shx", ".dbf"))
  {
  fname <- unzip(file=paste("pakistan", j, sep=""), zipfile= "pakistan.zip")
  file.copy(fname, paste("./pakistan", j, sep="/"), overwrite=TRUE)
}

unlink("pakistan.zip")

但它给了我以下错误

Warning messages: 
1: In unzip(file = paste("zupanije", j, sep = ""), zipfile = "pakistan.zip") :   requested file not found in the zip file 
2: In unzip(file = paste("zupanije", j, sep = ""), zipfile = "pakistan.zip") :   requested file not found in the zip file 
3: In unzip(file = paste("zupanije", j, sep = ""), zipfile = "pakistan.zip") :   requested file not found in the zip file

请提供任何可能的解决方案来处理此错误。 这些是我发现的实际代码，但 zip.file.extract 函数不再是 R 的一部分：

for(j in list(".shp", ".shx", ".dbf")){ 
fname <- zip.file.extract(file=paste("zupanije", j, sep=""), 
zipname="zupanije.zip") 
file.copy(fname, paste("./zupanije", j, sep=""), overwrite=TRUE) 
} 
unlink("zupanije.zip")

我想自动化从网站下载形状文件的结构并将其解压缩并放入另一个文件夹，然后使用 readShapePoly() 函数使用 ma​​ptools 库显示它.

Answer 1

您的代码适用于包含这些文件的 zip 文件。该错误表明这些文件不包含在 zip 文件中。既然您说您正在尝试提取“目录”，那么它们可能位于 zipfile 的子目录中？例如，如果我将文件放在“temp”目录中，然后创建该目录的 zip 文件，则必须将该目录添加到文件路径中，如下所示：

f <- "test.zip"
for(j in list(".shp", ".shx", ".dbf"))
{
  # note "pakistan" directory added to path
  # unzip pakistan/zupanije.shp (or .shx or .dbf) out of test.zip
  fname <- unzip(file=paste("pakistan/zupanije", j, sep=""), zipfile= f)
  #copy extracted file to destination directory
  file.copy(fname, paste("./destination", j, sep="/"), overwrite=TRUE)
}

如果您在类似 Linux 的环境中，您可以尝试以下命令来检查 zip 文件并确保它包含您认为包含的内容以及您期望的路径：

unzip -vl pakistan.zip

顺便说一句，您的代码将输出文件“./pakistan/.dbf”、“./pakistan/.shx”和“./pakistan/.shp”。那是你要的吗？或者您是否需要“pakistan.shx”等，在这种情况下需要进行此更改：

-file.copy(fname, paste("./pakistan", j, sep="/"), overwrite=TRUE)
+file.copy(fname, paste("./pakistan", j, sep=""), overwrite=TRUE)