r - 下载后在R中解压文件

Question

我正在尝试使用 R 在下载后解压缩文件。它在 Windows 10 上可以很好地解压缩。

verbose <- T
zipdir <- file.path("downloads","zip")
datadir <- file.path("downloads","data")


if (!file.exists("downloads")) dir.create("downloads")
if (!file.exists(zipdir)) dir.create(zipdir)
if (!file.exists(datadir)) dir.create(datadir)


filename <- "On_Time_Reporting_Carrier_On_Time_Performance_1987_present_2019_2.zip"

fileurl <- str_c("https://transtats.bts.gov/PREZIP/",filename)

if (verbose == TRUE) print(str_c("File url: ",fileurl))

zipfile <- file.path(zipdir, filename)
if (verbose == TRUE) print(str_c("File: ",zipfile))

download.file(fileurl, zipfile)
unzip(zipfile)

zip 文件的错误 1 ​​表示“不允许操作”

Warning message:
In unzip(zipfile) : error 1 in extracting from zip file

Answer 1

这是在 r2evans 的帮助下的解决方案:

download.file(fileurl, zipfile, mode = wb)

unzip(zipfile, exdir=datadir, overwrite=TRUE)

完整代码来了，复制试试

verbose <- T
zipdir <- file.path("downloads","zip")
datadir <- file.path("downloads","data")


if (!file.exists("downloads")) dir.create("downloads")
if (!file.exists(zipdir)) dir.create(zipdir)
if (!file.exists(datadir)) dir.create(datadir)


filename <- "On_Time_Reporting_Carrier_On_Time_Performance_1987_present_2019_2.zip"

fileurl <- str_c("https://transtats.bts.gov/PREZIP/",filename)

if (verbose == TRUE) print(str_c("File url: ",fileurl))

zipfile <- file.path(zipdir, filename)
if (verbose == TRUE) print(str_c("File: ",zipfile))

#These are the modified lines in the code

#Mode = wb is required to download binary files

download.file(fileurl, zipfile, mode = wb)

#Changed the function so that it specifies the target directory
#I recommend overwrite=TRUE otherwise it might crash. Alternative would be to check with file.exists

unzip(zipfile, exdir=datadir, overwrite=TRUE)