## ----echo = FALSE, results = "asis"------------------------------------------- library(rvest) crawl_html <- function(x) { x %>% gsub("\r", "", .) %>% gsub("\n\n", "
", .) %>% gsub("\n", " ", .) %>% paste0("
", ., "
") } film_desc <- function(x) { glue::glue_data(x, "Released: {release_date}
Director: {director}