if (FALSE) { # interactive()
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