使用R httr包获取zip文件：文件为空

我正在从使用基本身份验证的站点下载一个zip文件。下载看起来还可以，但当我尝试解压文件时，结果却是空的。当我手动下载文件时，它有几个文件夹和文件

以下是我正在做的：

library(httr)

dest <- paste0(getwd(), "/data/weekly_2017-02-18.zip")
GET("https://www.example.com/weeklydata/weekly_2017-02-18.zip", 
     authenticate("myemail", "mypassword", "basic"), 
     write_disk(dest, overwrite = TRUE))
unzip(dest) # <-- THIS FAILS

库（httr）
destunzip（dest））对不起，额外的括号是一个打字错误。在我的原始代码中没有。你能看到拉链是否没有损坏，响应状态是否为200吗？解压只会列出父zip的所有内容（名称）。这就是你要找的吗？嗯，响应状态是400（请求错误）。我还没有找到原因。解决了！事实证明，我不需要为网站的这一部分提供身份验证功能。