0

我正在尝试在 R 中读取此 xml：

url <- 'https://fnet.bmfbovespa.com.br/fnet/publico/downloadDocumento?id=155020&cvm=true&#toolbar=0'
xml <- url %>% httr::GET(httr::config(ssl_verifypeer = FALSE, ssl_verifyhost = FALSE)) %>% read_xml()

这个的输出是：

Error in read_xml.raw(content, encoding = encoding, base_url = if (nzchar(base_url)) base_url else x$url,  : 
  Start tag expected, '<' not found [4]

当我尝试走 getURL 的路线时：

xdata <- getURL(url,ssl.verifypeer = FALSE) 
doc <- XML::xmlTreeParse(xdata)

输出是：

Error: XML content does not seem to be XML:

并尝试这个：

curl::handle_setopt(h, ssl_verifyhost = 0, ssl_verifypeer=0) curl::curl_download(url=url, destfile = "file_test.html", handle = h)

只需将一个大字符串下载到文件中。xmlTreeParse 无法将其读取为 XML 的相同内容。

所有这些似乎都指向一个格式不正确的 XML（我相信）。但是，当我手动下载 XML 时，可以read_xml()毫无问题地读取文件。我可以像任何其他 XML 一样在我的浏览器上可视化它。

我该如何解决这个问题？这是刮板中的众多网址之一，它们都有相同的问题。

4

1 回答 1

2

该网站似乎使用base64加密，我不是很熟悉

url <- 'https://fnet.bmfbovespa.com.br/fnet/publico/downloadDocumento?id=155020&cvm=true&#toolbar=0'

xml <- url %>% 
 httr::GET(httr::config(ssl_verifypeer = FALSE, ssl_verifyhost = FALSE)) %>% 
 httr::content(as="text") %>%
 jsonlite::base64_dec() %>%
 rawToChar() %>%
 read_xml()

您可能需要安装 jsonlite，但这似乎对我有用。

于 2021-03-14T02:04:38.927 回答