R & figshare：在 R 中下载时损坏 zip

Question

我正在努力使我的研究可重现，将数据存储在 figshare。
当我在 R 中下载并解压缩数据时发生了一些奇怪的事情。
here is the zip
如果我手动下载它，它可以打开；但是当我尝试使用 R 脚本获取它时，下载的存档已损坏。有什么想法吗？

重现错误的代码

url <- 'https://ndownloader.figshare.com/files/4797355'
path <- 'test/missing_data_raw.zip'

ifelse(file.exists(path1), yes = 'file alredy exists', no = download.file(url1, path1))

unzip(zipfile = path1,exdir = 'test')

Answer 1

尝试将下载模式明确设置为二进制：

url <- 'https://ndownloader.figshare.com/files/4797217'
path1 <- tempfile(fileext = ".zip")
if (file.exists(path1))  'file alredy exists' else download.file(url, path1, mode="wb")
unzip(zipfile = path1,exdir = tempdir())

R & figshare：在 R 中下载时损坏 zip

R & figshare: corrupt zip when downloaded in R

r

unzip