https://github.com/jhudsl/didactr

Tools for Creating Automated Courses
https://github.com/jhudsl/didactr

Last synced: 3 months 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 (almost 7 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 (6 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)

```