I am trying to get points for a web scraping in multiples pages, lamentably I am getting problems in selector (I used SelectorGadget but without success).
I have success for only individual web scraping
library(rvest)
points <- read_html("https://www.winemag.com/buying-guide/lagar-de-bezana-2014-aluvion-ensamblaje-red-cachapoal-valley/")
points %>%
html_node(".rating") %>%
html_text()
[1] "93points"
For multiples pages results are not real values:
library(rvest)
points <- lapply(paste0('https://www.winemag.com/?s=chile&search_type=all', 1:5),
function(url){
url %>% read_html() %>%
html_nodes(".rating") %>%
html_text()
})
points
[[1]]
[1] "93 Points""92 Points""92 Points""92 Points""92 Points""92 Points"
[[2]]
[1] "93 Points""92 Points""92 Points""92 Points""92 Points""92 Points"
[[3]]
[1] "93 Points""92 Points""92 Points""92 Points""92 Points""92 Points"
[[4]]
[1] "93 Points""92 Points""92 Points""92 Points""92 Points""92 Points"
[[5]]
[1] "93 Points""92 Points""92 Points""92 Points""92 Points""92 Points"