In hathawayj/cards: Build's flash cards from BYU-I picture roll

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

# https://web.byui.edu/FacultyClasses/ClassList

# devtools::install_github("hathawayj/cards")
library(tidyverse)
library(cards)
library(jpeg)
library(grid)
library(ggplot2)

The example works partially. I have not had problems with the pdf files downloaded from BYU-I - https://web.byui.edu/FacultyClasses/ClassList. My tweaking of the file so for the example makes it not work as clear but the point of the functions and package is shown.

pdf_path <- system.file("extdata", "faces.pdf", package = "cards")
temp_path <- fs::path_temp()

dir_path <- pdf_2image(file = pdf_path)
jpg_files <-  fs::dir_ls(dir_path, regexp =  "jpg")
pdata <-  jpeg_roll(image_files = jpg_files)

gg_object <-  ggplot_faces(faces = pdata$all_faces,faces_names = pdata$all_names)

flashcard_pdf(gg_object,pdf_name = fs::path("Fall_2019.pdf"))
flashcard_pdf(gg_object,pdf_name = fs::path(dir_path, "Fall_2019_oneside.pdf"),front_back = FALSE)