I need to get all the reviews(total 259 reviews) from this website "https://www.yelp.com/biz/silverlake-ramen-long-beach-5"
but i am not able to get correct reviews, sometimes i got junk, sometimes i got more than 2000, please guide me in this scenario
Here is the code
install.packages("rvest")
install.packages("purrr")
install.packages("tidyverse")
install.packages("dplyr")
library(rvest)
library(purrr)
library(tidyverse)
library(dplyr)
url_base <- "https://www.yelp.com/biz/silverlake-ramen-long-beach-5?start=%d"
map_df(0:12,function(i){
i=i*20
page <-read_html(sprintf(url_base,i))
print(sprintf(url_base,i))
#data.frame(IssueID = html_text(html_nodes(page,".lemon--p__373c0__3Qnnj.text__373c0__2pB8f > .lemon--span__373c0__3997G"))
#)
data.frame(IssueID = html_text(html_nodes(page,".lemon--p__373c0__3Qnnj.text__373c0__2pB8f.comment__373c0__3EKjH.text-color--normal__373c0__K_MKN.text-align--left__373c0__2pnx_"))
)
}) -> yelp