为什么我不能抓取这些值

Question

我试图从这个 site 中只抓取一个值，但我无法获取它

这是我的代码

library(RSelenium)
rD <- rsDriver(browser="chrome",port=0999L,verbose = F,chromever = "95.0.4638.54")
remDr <- rD[["client"]]
remDr$navigate("https://www.dailyfx.com/eur-usd")
html <- remDr$getPageSource()[[1]]


library(rvest)
page <- read_html(html)
nodes <- html_nodes(page, css =  ".mt-2.text-black")
html_text(nodes)

我的结果是

html_text(nodes)
[1] "\n\nEUR/USD\nMixed\n\n\n\n\n\n\n\n\n\nNet Long\n\n\n\nNet Short\n\n\n\n\n\nDaily change in\n\n\n\nLongs\n5%\n\n\nShorts\n1%\n\n\nOI\n4%\n\n\n\n\n\nWeekly change in\n\n\n\nLongs\n13%\n\n\nShorts\n23%\n\n\nOI\n17%\n\n\n\n"

我需要做什么才能获得 Net Long 的值？

Answer 1

我会使用更有针对性的 css 选择器列表，以仅针对感兴趣的节点。然后从单个匹配节点中提取data-value属性值，得到百分比：

webElem <- remDr$findElement(using = 'css selector', '.dfx-technicalSentimentCard__netLongContainer [data-type="long-value-info"]') 
var <- webElem$getElementAttribute("data-value")[[1]]

或者，

page %>% html_element('.dfx-technicalSentimentCard__netLongContainer [data-type="long-value-info"]') %>% html_attr('data-value')

为什么我不能抓取这些值

Why I can't scrape these values

css

r

web-scraping

rselenium

rvest