install.packages("RSelenium") library(RSelenium) remDr <- remoteDriver(remoteServerAddr = "localhost" , port = 4445L, browserName = "chrome") remDr$open() ############################################################## install.packages('RSelenium') install.packages("rvest") install.packages("httr") library(RSelenium) library(rvest) library(httr) remDr <- remoteDriver(remoteServerAddr = "localhost" , port = 4445L, browserName = "chrome") remDr$open() remDr$navigate("https://www.tving.com") url_item<-remDr$getPageSource()[[1]] url_item<-read_html(url_item, encoding="UTF-8") result<-url_item %>% html_nodes("#EXCD0599 .program-item__info-title") %>% html_text() result<-str_replace_all(result,"\\W","")