data-raw/sample_books.R

In dgrtwo/gutenbergr: Download and Process Public Domain Works from Project Gutenberg

#!/usr/bin/env Rscript

## Datasets to use in examples, tests, and vignettes.
devtools::load_all(".")
sample_books <- gutenberg_download(
  c(109, 105),
  meta_fields = c("title", "author"),
  mirror = "http://aleph.gutenberg.org"
)
usethis::use_data(sample_books, overwrite = TRUE, compress = "bzip2")

# Fix format.
# tools::resaveRdaFiles("data/")
# tools::checkRdaFiles("data/")