jhudsl/didactr

Tools for Creating Automated Courses

didactr Package:

The goal of didactr is to provide leverages the ‘ari’ package and other tools to create automated courses from slides and a script. Also, uploads these to YouTube and other servies, with the option of translation.

Installation

You can install didactr from GitHub with:

# install.packages("remotes")
remotes::install_github("muschellij2/didactr")

Example

library(didactr)
auth = didactr_auth()

library(didactr)
library(googledrive)
library(dplyr)
library(tuber)
aws.signature::use_credentials(profile = "polly")
#########################
# Find a presentation
#########################
auth = didactr_auth()
x = drive_find(n_max = 25, type = "presentation")
res = gs_ari(x$id[1], voice = "Joanna", 
       cleanup = FALSE,
       ffmpeg_opts = '-vf "scale=trunc(iw/2)*2:trunc(ih/2)*2"')

####### yt_authentication done here #####

vid = upload_video(file = res$output, 
                   status = list(privacyStatus = "unlisted"),
                   snippet = list(title = "hey"))
browseURL(vid$url)

# if you want to delete the video
del = delete_videos(vid$content$id)