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

## ----eval=FALSE---------------------------------------------------------------
# library(tutorizeR)
# 
# work_dir <- file.path(tempdir(), "quarto-lesson")
# output_dir <- file.path(work_dir, "generated")
# 
# report <- tutorize(
#   input = file.path(work_dir, "lesson-source.qmd"),
#   output_dir = output_dir,
#   format = "learnr",
#   assessment = "both",
#   overwrite = TRUE
# )
# 
# print(report)

## ----eval=FALSE---------------------------------------------------------------
# library(tutorizeR)
# 
# work_dir <- file.path(tempdir(), "quarto-lesson")
# output_dir <- file.path(work_dir, "generated")
# 
# report <- tutorize(
#   input = file.path(work_dir, "lesson-source.qmd"),
#   output_dir = output_dir,
#   format = "quarto-live",
#   assessment = "code",
#   overwrite = TRUE
# )
# 
# print(report)