Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/jhudsl/didactr
Tools for Creating Automated Courses
https://github.com/jhudsl/didactr
Last synced: 20 days ago
JSON representation
Tools for Creating Automated Courses
- Host: GitHub
- URL: https://github.com/jhudsl/didactr
- Owner: jhudsl
- License: gpl-3.0
- Created: 2018-05-08T15:22:43.000Z (over 6 years ago)
- Default Branch: master
- Last Pushed: 2021-03-12T17:25:39.000Z (almost 4 years ago)
- Last Synced: 2024-08-13T07:14:32.479Z (4 months ago)
- Language: R
- Size: 1.14 MB
- Stars: 18
- Watchers: 4
- Forks: 10
- Open Issues: 0
-
Metadata Files:
- Readme: README.Rmd
- Changelog: NEWS.md
- License: LICENSE.md
Awesome Lists containing this project
- jimsghstars - jhudsl/didactr - Tools for Creating Automated Courses (R)
README
---
output: github_document
---[![Travis build status](https://travis-ci.com/jhudsl/didactr.svg?branch=master)](https://travis-ci.com/jhudsl/didactr)
[![AppVeyor Build Status](https://ci.appveyor.com/api/projects/status/github/muschellij2/didactr?branch=master&svg=true)](https://ci.appveyor.com/project/muschellij2/didactr)
[![Coverage status](https://coveralls.io/repos/github/muschellij2/didactr/badge.svg?branch=master)](https://coveralls.io/r/muschellij2/didactr?branch=master)
[![Coverage status](https://codecov.io/gh/muschellij2/didactr/branch/master/graph/badge.svg)](https://codecov.io/github/muschellij2/didactr?branch=master)
[![Travis build status](https://travis-ci.com/jhudsl/didactr.svg?branch=master)](https://travis-ci.com/jhudsl/didactr)```{r setup, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-"
)
```# 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:
```{r gh-installation, eval = FALSE}
# install.packages("remotes")
remotes::install_github("muschellij2/didactr")
```## Example
```{r, eval = FALSE}
library(didactr)
auth = didactr_auth()
``````{r, eval = FALSE}
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)
```