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

## ----eval=FALSE---------------------------------------------------------------
# library(tutorizeR)
# 
# course_dir <- file.path(tempdir(), "course")
# qb <- load_question_bank(file.path(course_dir, "question-bank"))
# 
# folder_report <- convert_folder(
#   dir = file.path(course_dir, "lessons"),
#   recursive = TRUE,
#   output_dir = file.path(course_dir, "tutorials"),
#   format = "learnr",
#   assessment = "both",
#   question_bank = qb,
#   mcq_source = "mixed",
#   lint_strict = TRUE,
#   overwrite = TRUE
# )
# 
# print(folder_report)

## ----eval=FALSE---------------------------------------------------------------
# library(tutorizeR)
# 
# lint <- lint_source(
#   input = file.path(course_dir, "lessons", "week03-visualization.qmd"),
#   question_bank = qb,
#   strict = FALSE
# )
# 
# print(lint)