下载的PDF格式为R-已损坏的文件

我一直在尝试下载R中的一些PDF，代码如下：

link <- paste0("http://","www.energisa.com.br/empresa/paginas/servicos-online/autoatendimento/extrato-segunda-via-publica-visualizacao.aspx?ano=2017&mes=9&cdc=6/681274-7&fatura=55152")

data_referencia <- seq(as.Date("2017-10-01"), length = 1, by = "-1 month")    
download.file(link, destfile = paste0("energisa_", data_referencia,".pdf"), mode = "wb")

---

link
object'k'未找到
Sorry@PoGibas，我更改了代码以简化…如果我在新的浏览器会话中尝试转到该URL，我看不到PDF；我看到一个页面要求我选择一个城市。看起来你可能需要登录或做些什么。服务器端代码阻止直接下载该文件。很可能是您在欢迎页面的HTML中下载的文件，而不是您想要的PDF。@MrFlick，您可以选择任何城市作为打开PDF的参考。或者，如果您在“Unidade Consumidora”字段（在页面底部）中输入并键入“6/681274-7”，您将看到最后12个发布的文件，第一个文件有pdf链接。奇怪的事实是，R似乎只保存pdf的一个分区，因为所有保存的文件都具有相同的大小（大约33Kb）。