library(tidyverse)
library(rvest)Scraping
frozen <- read_html("https://www.imdb.com/title/tt2294629")
cast <- html_nodes(frozen, ".gJhRzH")
html_text(cast)Reviews
frozen_reviews <- read_html("https://www.imdb.com/title/tt2294629/reviews")
all_reviews <- html_nodes(frozen_reviews, ".show-more__control")
reviews<- tibble(text = html_text(all_reviews) %>% unlist())
bigrams <- reviews %>%
unnest_tokens(words, text, token = "ngrams", n = 2)