if (FALSE) { # interactive()
library(dplyr)
# download The Count of Monte Cristo
gutenberg_download(1184)
# download two books: Wuthering Heights and Jane Eyre
books <- gutenberg_download(c(768, 1260), meta_fields = "title")
books
books %>% count(title)
# download all books from Jane Austen
austen <- gutenberg_works(author == "Austen, Jane") %>%
gutenberg_download(meta_fields = "title")
austen
austen %>%
count(title)
}
Run the code above in your browser using DataLab