EVOLUTION-MANAGER

Edit File: starwars.Rmd

--- title: "Star Wars films" output: rmarkdown::html_vignette vignette: > %\VignetteIndexEntry{Star Wars films} %\VignetteEngine{knitr::rmarkdown} %\VignetteEncoding{UTF-8} --- This vignette contains some data about the Star Wars films for use in rvest examples and vignettes. ```{r, echo = FALSE, results = "asis"} library(rvest) crawl_html <- function(x) { x %>% gsub("\r", "", .) %>% gsub("\n\n", "</p><p>", .) %>% gsub("\n", " ", .) %>% paste0("<p>", ., "</p>") } film_desc <- function(x) { glue::glue_data(x, " <section> <h2 data-id='{episode_id}'>{title}</h2> <p>Released: {release_date}</p> <p>Director: <span class='director'>{director}</span></p> <div class='crawl'>{crawl_html(opening_crawl)}</div> </section>") } films <- repurrrsive::sw_films films <- films[order(sapply(films, "[[", "episode_id"))] descs <- vapply(films, film_desc, character(1)) writeLines(descs) ```