In dtkaplan/submitr: Handles submissions to a database of events in learnr sessions.

library(learnr)
library(submitr)
knitr::opts_chunk$set(echo = FALSE)
options(tutorial.storage = "none")

instructor_key <- "isostats"
account_name <- "[e-mail]"
credentials <- 
  "https://dtkaplan.github.io/submitr/password.csv"
 # "1WvQDD1sQHcc_aZ1eisWkZvhU4a3jEAR2HXt_1REojpM"

storage_actions <-
  in_google_sheets(
    "14z7FM64GUq8nc6Q4zvJKH5ynEY2lBttiIIqAxmEgojA", 
    email = account_name)

Topic One

question("Which planet do we live on?",
         answer("Mars", correct=FALSE),
         answer("Earth", correct = TRUE,  message = "Good job Earthling!"),
         answer("Saturn",  correct = FALSE),
         allow_retry = TRUE,
         random_answer_order = TRUE
        )

Topic Two

head(mtcars, 2)

"What do you think?"

"Go with your gut"

Video

If I make this into an embedded video (by prepending the link with "bang!") the event recorder doesn't always work.

dtkaplan/submitr documentation built on Sept. 20, 2020, 1:19 a.m.