在R中下载PDF - 损坏的文件

Question

我一直在尝试使用以下代码下载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")

在我打开pdf文件（弹出错误消息）之前一切正常：

我尝试更改＆＃34; download.file()＆＃34;参数，但问题仍然存在。

你可以帮帮我吗？