data-raw/fairy_tales.R

In EmilHvitfeldt/horus: Visual Tools To Help Machine Learning model Selection

set.seed(12345)
library(tidyverse)
# devtools::install_github("EmilHvitfeldt/hcandersenr")
select_books <- hcandersenr::hcandersen_en %>%
  pull(book) %>%
  unique() %>%
  sample(size = 5)

fairy_tales <- hcandersenr::hcandersen_en %>%
  filter(book %in% select_books)