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

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

## ----eval=FALSE---------------------------------------------------------------
# library(tutorizeR)
# 
# example_dir <- system.file("examples", "example_course_module", package = "tutorizeR")
# work_dir <- file.path(tempdir(), "tutorizeR-example")
# dir.create(work_dir, recursive = TRUE, showWarnings = FALSE)
# 
# file.copy(file.path(example_dir, "lesson-source.qmd"), work_dir, overwrite = TRUE)
# file.copy(file.path(example_dir, "student_activity.csv"), work_dir, overwrite = TRUE)
# 
# question_bank <- load_question_bank(file.path(example_dir, "question-bank"))
# 
# report <- tutorize(
#   input = file.path(work_dir, "lesson-source.qmd"),
#   output_dir = work_dir,
#   format = "learnr",
#   assessment = "both",
#   question_bank = question_bank,
#   mcq_source = "mixed",
#   overwrite = TRUE,
#   verbose = FALSE
# )
# 
# print(report)

## ----eval=FALSE---------------------------------------------------------------
# library(tutorizeR)
# 
# course_dir <- file.path(tempdir(), "course_material")
# output_dir <- file.path(course_dir, "tutorials")
# 
# folder_report <- convert_folder(
#   dir = course_dir,
#   recursive = TRUE,
#   output_dir = output_dir,
#   format = "learnr",
#   assessment = "both",
#   overwrite = TRUE
# )
# 
# print(folder_report)

## ----eval=FALSE---------------------------------------------------------------
# library(tutorizeR)
# 
# example_dir <- system.file("examples", "example_course_module", package = "tutorizeR")
# source(file.path(example_dir, "run-example.R"))