r-如何使用rvest抓取使用datawrapper创建的表

Question

我正试图使用rvest从以下网站上抓取表1：

https://www.kff.org/coronavirus-covid-19/issue-brief/u-s-international-covid-19-vaccine-donations-tracker/

以下是我写的代码：

link <- "https://www.kff.org/coronavirus-covid-19/issue-brief/u-s-international-covid-19-vaccine-donations-tracker/"
page <- read_html(link)
page %>%   html_nodes("iframe") %>% html_attr("src") %>% .[11] %>% read_html() %>% 
html_nodes("table.medium datawrapper-g2oKP-6idse1 svelte-1vspmnh resortable")

但是，我得到了{xml_nodeset (0)}作为结果。我正在努力从数据包装器页面中找出要在html_nodes((中选择的正确标记，以提取表1。

如果有人能指出我犯的错误，或者提出一个解决方案来解决这个问题，我将不胜感激。

非常感谢。

Answer 1

数据存在于iframe中，但需要一些操作。至少对我来说，从iframe页面构建csv下载url，然后请求csv 更容易

library(rvest)
library(magrittr)
library(vroom)
library(stringr)
page <- read_html('https://www.kff.org/coronavirus-covid-19/issue-brief/u-s-international-covid-19-vaccine-donations-tracker/')
iframe <- page %>% html_element('iframe[title^="Table 1"]') %>% html_attr('src')

id <- read_html(iframe) %>% html_element('meta') %>% html_attr('content') %>% str_match('/(\d+)/') %>% .[, 2]
csv_url <- paste(iframe,id, 'dataset.csv', sep = '/' )
data <- vroom(csv_url, show_col_types = FALSE)