In rstudio-education/grader: Automated Feedback for Student Exercises in 'learnr' Tutorials

library(learnr)
library(gradethis)
library(googlesheets)

# Specify a googlesheet to record to
demo_sheet <- gs_url("https://docs.google.com/spreadsheets/d/1D2qEB-PrNrHEEjrBYY0-qW4hGbJOZcb_SgV6jG3ceQA/edit#gid=0")

options(tutorial.event_recorder = record_learnr(gs = demo_sheet))
tutorial_options(exercise.timelimit = 60, exercise.checker = grade_learnr)
knitr::opts_chunk$set(echo = FALSE)

Topic 1

Exercise

Here is a number. You can do great things with it, like this:

• Take the square root of the log of the number. Then click Submit Answer.

1

"You can take the log with `log()`"

"You can take the square root with `sqrt()`"

sqrt(log(1))

check_code("Good job. Don't worry, things will soon get harder.")

rstudio-education/grader documentation built on July 6, 2023, 8:48 a.m.