用 rvest 抓取网页。以 NA 身份返回

Question

我对网络抓取很陌生，我正在尝试从此处链接的一个 538 网站 (https://projects.fivethirtyeight.com/carmelo/kyrie-irving/) 抓取 5 年的市场价值。这是我从 rvest 包运行的代码。

kyrie_irving <- 
read_html("https://projects.fivethirtyeight.com/carmelo/kyrie-irving/")

kyrie_irving %>% 
html_node(".market-value") %>% 
html_text() %>% 
as.numeric()

但是输出看起来像这样：

> kyrie_irving <- 
  read_html("https://projects.fivethirtyeight.com/carmelo/kyrie-irving/")
> kyrie_irving %>% 
+   html_node(".market-value") %>% 
+   html_text() %>% 
+   as.numeric()
[1] NA

我只是想知道我哪里出了问题？

编辑：我尝试使用 RSelenium 来执行此操作，但仍然没有返回任何值。我真的不知道问题出在哪里。代码如下：

library(RSelenium)

rD <- rsDriver(port = 4444L,  browser = "chrome")

remDr <- rD[["client"]]
remDr$navigate("https://projects.fivethirtyeight.com/carmelo/kyrie-irving/")

elem <- remDr$findElement(using="css selector", value=".market-value")
elemtxt <- elem$getElementAttribute("div")

Answer 1

Rselenium 有效，你只需要更改最后一行代码就可以得到结果。

elem$getElementText()
[[1]]
[1] "$136.5m"

顺便说一下，结果是一个字符串，所以需要去掉$和m，然后才能解析成数字。