In jhudsl/ariExtra: Tools for Creating Automated Courses

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-"
)

ariExtra Package:

The goal of ariExtra is to provide leverages the ari' package and other tools to create automated courses from slides and a script.

Installation

You can install ariExtra from GitHub with:

# install.packages("remotes")
remotes::install_github("jhudsl/ariExtra")

Example

library(ariExtra)
id = "1Opt6lv7rRi7Kzb9bI0u3SWX1pSz1k7botaphTuFYgNs"
res = gs_to_ari(id, verbose = FALSE, voice = "Joanna", service = "amazon", open = FALSE)

x = c("---", "output:", "  ariExtra::ari_document:", "    voice: Joanna", 
"    service: amazon", "    verbose: no", "---", "", "", "----------", 
"", "<!--Lean pub created a mook platform.  We want to discuss some options for creating courses with Lean pub at Johns Hopkins.-->", 
"![](/private/var/folders/1s/wrtqcpxn685_zk570bnx9_rr0000gr/T/RtmpsE0Sv2/filecef632678c61.png)", 
"", "", "----------", "", "<!--Here is an example of the way Lean pub turns text into an output course.  The left hand side is written in a markdown format called Markua.-->", 
"![](/private/var/folders/1s/wrtqcpxn685_zk570bnx9_rr0000gr/T/RtmpsE0Sv2/filecef62c314e21.png)", 
"")
output_file = tempfile(fileext = ".md")
writeLines(x, output_file)
res = list(output_file = output_file)