下载自定义文件时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文件将损坏。

Answer 2

您没有直接链接到该文件。 R尝试下载网页而不是文件。使用以“.zip”结尾的链接。

使用XML或RCurl包来抓取此网页中数据集的链接可能很有用。