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

## ----eval=FALSE---------------------------------------------------------------
# library(tutorizeR)
# 
# lint <- lint_source("lesson.qmd", strict = FALSE)
# print(lint)

## ----eval=FALSE---------------------------------------------------------------
# library(tutorizeR)
# 
# report <- tutorize(
#   input = "lesson.qmd",
#   output_dir = tempdir(),
#   assessment = "both",
#   lint_strict = TRUE,
#   overwrite = TRUE
# )

## ----eval=FALSE---------------------------------------------------------------
# library(tutorizeR)
# 
# example_dir <- system.file("examples", "example_course_module", package = "tutorizeR")
# source_file <- file.path(example_dir, "lesson-source.qmd")
# question_bank <- load_question_bank(file.path(example_dir, "question-bank"))
# 
# lint <- lint_source(
#   input = source_file,
#   question_bank = question_bank,
#   strict = FALSE
# )
# 
# print(lint)

## ----eval=FALSE---------------------------------------------------------------
# write_tutorize_report(
#   report,
#   file.path(tempdir(), "conversion-report.json"),
#   format = "json"
# )

## ----eval=FALSE---------------------------------------------------------------
# stopifnot(inherits(lint, "tutorize_lint_report"))