Gratter la liste de film top 100 hors site

Question

Je sais qu'il ya quelques façons de la ferraille les données à partir du Web, mais ce serait la moins douloureuse à la ferraille la liste de film top 100 de ce site: https://editorial.rottentomatoes.com/guide/best-sci-fi-movies-of-all-time/

Je voudrais utiliser R si possible et stocker les résultats sous forme de fichier R.

Merci beaucoup!

Answer 1

library(rvest) 
library(magrittr) 

url <- paste0("https://editorial.rottentomatoes.com/guide/best-sci-fi-movies-of-all-time/", 1:7, "/") 

all_titles <- character() 
all_years <- numeric() 

for (i in 1:length(url)) { 
    movies <- url[i] %>% 
     read_html() %>% 
     html_nodes(".article_movie_title") 

    titles <- movies %>% 
     html_nodes("a") %>% 
     html_text() 

    years <- movies %>% 
     html_nodes(".start-year") %>% 
     html_text() 

    all_titles <- c(all_titles, titles) 
    all_years <- c(all_years, years) 
} 

result <- data.frame(Titles = all_titles, Years = all_years) 

print(result)