尝试抓取到CSV文件

问题描述

我正在尝试用R抓取该站点的数据:

http://relatorios.aneel.gov.br/_layouts/xlviewer.aspx?id=/RelatoriosSAS/RelSAMPClasseConsNivel.xlsx&Source=http%3A%2F%2Frelatorios%2Eaneel%2Egov%2Ebr%2FRelatoriosSAS%2FForms%2FAllItems%2Easpx&DefaultItemOpen=1

这是一个共享点数据库。

我已经尝试过RSelenium pakckage:

    rD <- rsDriver(verbose = FALSE,port=4000L,chromever = "86.0.4240.22")
    
    remDr <- rD$client
    
    remDr$navigate("http://relatorios.aneel.gov.br/_layouts/xlviewer.aspx?id=/RelatoriosSAS/RelSAMPClasseConsNivel.xlsx&Source=http%3A%2F%2Frelatorios%2Eaneel%2Egov%2Ebr%2FRelatoriosSAS%2FForms%2FAllItems%2Easpx&DefaultItemOpen=1") 
    
        webElem <- remDr$findElement(using = "xpath",value = "//*[@id='ctl00_PlaceHolderMain_m_excelWebRenderer_ewaCtl_clientAreaDiv']")

a <- webElem$getElementText()

但它不会带来所有数据。我也尝试了rvest,但是没有成功。

有什么建议吗?

谢谢!

已更新:

b <- webElem$getPageSource()
c <- readHTMLTable(b[[1]],header = T,as.data.frame = T)
View(c[[5]])

几乎,但仍然缺少一些结果

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)

相关问答

错误1:Request method ‘DELETE‘ not supported 错误还原:...
错误1:启动docker镜像时报错:Error response from daemon:...
错误1:private field ‘xxx‘ is never assigned 按Alt...
报错如下,通过源不能下载,最后警告pip需升级版本 Requirem...