R Guttenberg API

guttenberg.R

## Originally taken from: https://juliasilge.github.io/ibm-ai-day/slides.html#1

if (!require("pacman")) install.packages("pacman")
pacman::p_load(tidyverse, gutenbergr)

## Scrape known books
titles <- c(
    "Twenty Thousand Leagues under the Sea", 
    "The War of the Worlds",
    "Pride and Prejudice", 
    "Great Expectations"
)

books <- gutenberg_works(title %in% titles) %>%
  gutenberg_download(meta_fields = "title")

books


## Scrape fuzzy matched books
bibles <- gutenberg_works(grepl('bible', title, ignore.case = TRUE)) %>%
  gutenberg_download(meta_fields = "title")

bibles