In dtkaplan/etude: Utilities for Handling Textbook Exercises with Knitr

Time to recompile .

library(learnr)
library(QandA)
library(ggformula)
library(gradethis)
knitr::opts_chunk$set(echo = FALSE)
learnr::tutorial_options(exercise.timelimit = 60, 
                 exercise.checker = save_check_inputs)

essay_response()

x  <- 18
y = "hello"

tt <- 323

t <- 177
grade_result(
  pass_if(~ identical(.result, 361), "Good job!")
)

choose_one(
  prompt = "What is 2 + 2?",
  c(1, 2, 3,  "+4+", 5, 6),
  inline = TRUE
)

# indicate correct choices with +_+ in the item.
QandA::choose_one(
  prompt = "Which  is a vowel?",
  c("+A+", "B", "C")
)

yesno(
  prompt = "Is $e^{-i \\pi} = 1$?",
  istrue = FALSE,
  right = "Good, you recognized the missing minus sign.",
  wrong = "Remember, angle $\\pi$ points to  the left side of the plane",
  points  = 15     
)

QandA::choice_list(
  prompt = "Which of these letters is a vowel?",
  choices = list(
    "+A+" = "",
    "B" = "B's a consonant, Bub.",
    "C" = "C is a consonant, Chub",
    "D" = "D is a consonant, Dear",
    "+E+" = ""
  )
)

QandA::choices(
  prompt = "What color is not in the rainbow?",
  good = list("purple" = "Purple is a human perception, not a wavelength of light."),
  bad = list("red" = "The R in ROY G. BIV",
              "green" = "It's in the rainbow, for sure",
              "the color blue" = "What color is the sky?"),
  points = 10  
)

QandA::choices(
  prompt = "What colors **are** in the rainbow?",
  bad = list("purple" = "Purple is a human perception, not a wavelength of light."),
  good = list("red" = "The R in ROY G. BIV",
              "green" = "It's in the rainbow, for sure",
              "the color blue" = "What color is the sky?"),
  points = 10,
  need_all = TRUE
)