if (FALSE) { # interactive()
library(dplyr)
book <- gutenberg_works(title == "Pride and Prejudice") %>%
gutenberg_download(strip = FALSE)
head(book$text, 10)
tail(book$text, 10)
text_stripped <- gutenberg_strip(book$text)
head(text_stripped, 10)
tail(text_stripped, 10)
}
Run the code above in your browser using DataLab