## ---- include = FALSE---------------------------------------------------------
library("exams2learnr")
set.seed(403)
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "##",
  message = FALSE,
  warning = FALSE,
  eval = FALSE,
  echo = TRUE
)

## -----------------------------------------------------------------------------
#  library("exams2learnr")
#  run_quiz(c("capitals.Rmd", "fruit.Rmd", "function.Rmd"))

## -----------------------------------------------------------------------------
#  qn <- exams2learnr("function.Rmd")
#  class(qn)
#  ## [1] "learnr_text"       "tutorial_question"
#  print(qn)
#  ## Question: "What is the name of the R function for extracting the fitted
#  ## log-likelihood from a fitted (generalized) linear model object?"
#  ##   type: "learnr_text"
#  ##   allow_retry: FALSE
#  ##   random_answer_order: FALSE
#  ##   answers:
#  ##     ✔: "logLik"
#  ##   messages:
#  ##     correct: "Correct!"
#  ##     incorrect: "Incorrect"
#  ##     message: "<code>logLik</code> is the R function for extracting the
#  ##     fitted log-likelihood from a fitted (generalized) linear model object.
#  ## See <code>?logLik</code> for the corresponding manual page."
#  ##   Options:
#  ##     trim: TRUE

## -----------------------------------------------------------------------------
#  qz <- exams2learnr(c("swisscapital.Rmd", "switzerland.Rmd"))
#  class(qz)
#  ## [1] "tutorial_quiz"
#  print(qz)
#  ## Quiz: "Quiz"
#  ##
#  ##   Question: "What is the seat of the federal authorities in Switzerland
#  ##   (i.e., the de facto capital)?"
#  ##     type: "learnr_radio"
#  ##     allow_retry: FALSE
#  ##     random_answer_order: FALSE
#  ##     answers:
#  ##       X: "Zurich"
#  ##       X: "Basel"
#  ##       ✔: "Bern"
#  ##       X: "Vaduz"
#  ##       X: "Geneva"
#  ##     messages:
#  ##       correct: "Correct!"
#  ##       incorrect: "Incorrect"
#  ##       message: "There is no de jure capital but the de facto capital and
#  ##       seat of the federal authorities is Bern.</p>
#  ##
#  ## <ul>
#  ## <li>False</li>
#  ## <li>False</li>
#  ## <li>True</li>
#  ## <li>False</li>
#  ## <li>False</li>
#  ## </ul>
#  ## "
#  ##
#  ##   Question: "Which of the following statements about Switzerland is correct?"
#  ##     type: "learnr_checkbox"
#  ##     allow_retry: FALSE
#  ##     random_answer_order: FALSE
#  ##     answers:
#  ##       X: "The currency in Switzerland is the Euro."
#  ##       ✔: "Italian is an official language in Switzerland."
#  ##       ✔: "The Swiss national holiday is August 1."
#  ##       X: "Switzerland is part of the European Union (EU)."
#  ##       X: "Zurich is the capital of Switzerland."
#  ##     messages:
#  ##       correct: "Correct!"
#  ##       incorrect: "Incorrect"
#  ##       message: "<ul>
#  ## <li>False. The currency is the Swiss Franc (CHF).</li>
#  ## <li>True. The official languages are: German, French, Italian, Romansh.</li>
#  ## <li>True. The establishment of the Swiss Confederation is traditionally dated to August 1, 1291.</li>
#  ## <li>False. Switzerland is part of the Schengen Area but not the EU.</li>
#  ## <li>False. There is no de jure capital but the de facto capital of Switzerland is Bern.</li>
#  ## </ul>
#  ## "

## ---- eval=TRUE, echo=FALSE, results="asis"-----------------------------------
writeLines(paste0("    ", readLines(
  system.file("learnr", "learnr_quiz.Rmd", package = "exams2learnr")
)))

## -----------------------------------------------------------------------------
#  rmarkdown::run(system.file("learnr", "learnr_quiz.Rmd", package = "exams2learnr"))

## ---- eval=TRUE, echo=FALSE, results="asis"-----------------------------------
writeLines(paste0("    ", readLines(
  system.file("learnr", "learnr_questions.Rmd", package = "exams2learnr")
)))

## -----------------------------------------------------------------------------
#  rmarkdown::run(system.file("learnr", "learnr_questions.Rmd", package = "exams2learnr"))