## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----eval=FALSE---------------------------------------------------------------
# library(tutorizeR)
# 
# course_dir <- file.path(tempdir(), "course")
# output_dir <- file.path(course_dir, "tutorials", "preclass")
# 
# report <- tutorize(
#   input = file.path(course_dir, "lessons", "week03-data-visualization.qmd"),
#   output_dir = output_dir,
#   format = "learnr",
#   assessment = "both",
#   overwrite = TRUE
# )
# 
# print(report)

## ----eval=FALSE---------------------------------------------------------------
# library(tutorizeR)
# 
# course_dir <- file.path(tempdir(), "course")
# output_dir <- file.path(course_dir, "tutorials")
# question_bank <- load_question_bank(file.path(course_dir, "question-bank"))
# 
# report <- tutorize(
#   input = file.path(course_dir, "lessons", "week04-summarisation.qmd"),
#   output_dir = output_dir,
#   format = "learnr",
#   assessment = "both",
#   question_bank = question_bank,
#   mcq_source = "mixed",
#   overwrite = TRUE
# )

## ----eval=FALSE---------------------------------------------------------------
# library(tutorizeR)
# 
# course_dir <- file.path(tempdir(), "course")
# output_dir <- file.path(course_dir, "generated")
# 
# report <- tutorize(
#   input = file.path(course_dir, "lessons", "week05-models.qmd"),
#   output_dir = output_dir,
#   format = "learnr",
#   assessment = "both",
#   lint_strict = TRUE,
#   overwrite = TRUE
# )
# 
# write_tutorize_report(
#   report = report,
#   file = file.path(output_dir, "week05-conversion-report.json"),
#   format = "json"
# )