R/data_prep.R

In abooli/murdermysteryr: Data package for classic murder mystery.

library(gutenbergr)
library(dplyr)


masque <- as_tibble(gutenberg_download(1064)$text)
cask <- as_tibble(gutenberg_download(1063)$text)
usher <- as_tibble(gutenberg_download(932)$text)
hound <- as_tibble(gutenberg_download(2852)$text)
signfour <- as_tibble(gutenberg_download(2097)$text)
scarlet <- as_tibble(gutenberg_download(244)$text)
links <- as_tibble(gutenberg_download(58866)$text)
links <- links[5:length(links)]
adversary <- as_tibble(gutenberg_download(1155)$text)
styles <- as_tibble(gutenberg_download(863)$text)

## Add data files to project
devtools::use_data(masque, overwrite = TRUE)
devtools::use_data(cask, overwrite = TRUE)
devtools::use_data(usher, overwrite = TRUE)
devtools::use_data(hound, overwrite = TRUE)
devtools::use_data(signfour, overwrite = TRUE)
devtools::use_data(scarlet, overwrite = TRUE)
devtools::use_data(links, overwrite = TRUE)
devtools::use_data(adversary, overwrite = TRUE)
devtools::use_data(styles, overwrite = TRUE)