knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "man/figures/README-" )
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.
You can install didactr
from GitHub with:
# install.packages("remotes") remotes::install_github("muschellij2/didactr")
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.