下载自定义文件时file.download出错

Question

我正在尝试从此网址下载zip文件:

url1 <- http://www.clinicaltrials.gov/ct2/results?cond=%22acne%22&studyxml=true

这是我的代码:

tempZip <- tempfile()
download.file(url1, tempZip)

这是我得到的错误:

Warning message:
In download.file(url1, tempZip) :
  downloaded length 817445 != reported length 200

有任何想法吗？

编辑:好的,在看到下面的agstudy的回复后,我发现文件确实被下载了(它似乎也是正确的文件大小).现在的问题是当我尝试解压缩文件时 - 文件损坏了几天.

Maciej,我同意使用扩展名为.zip的链接会更好,但是,没有办法从这个网站上获得.

Answer 1

好的,我弄清楚出了什么问题.因为这个url最后没有特别的".zip",所以download.file函数不知道使用二进制下载.此代码修复了此问题:

url1 <- http://www.clinicaltrials.gov/ct2/results?cond=%22acne%22&studyxml=true
tempZip <- tempfile()
download.file(url1, tempZip, mode="wb")

如果未指定mode参数,则下载的zip文件将损坏.