R/exams2webquiz.R

In exams2forms: Embedding 'exams' Exercises as Forms in 'rmarkdown' or 'quarto' Documents

exams2webquiz <- function(file, n = 1L, nsamp = NULL, dir = NULL,
  name = "webquiz", title = "R/exams quiz", browse = TRUE, edir = NULL, ...,
  clean = TRUE, quiet = TRUE, envir = parent.frame()) {

  ## sanity check for pandoc
  stopifnot(pandoc_available())

  ## directory handling
  if(is.null(dir)) {
    dir <- tempfile()
    if(is.null(edir)) edir <- getwd()
  }
  if(!file.exists(dir) && !dir.create(dir))
    stop(gettextf("Cannot create output directory '%s'.", dir))

  ## simple webexercises quiz template
  template <- c(
    '---',
    'title: "%s"',
    'output: exams2forms::webquiz',
    '---',
    '',
    '```{r exams2forms-setup, include = FALSE}',
    '## package and exercises',
    'library("exams2forms")',
    'exm <- %s',
    '```',
    '',
    '```{r exams2forms-include, echo = FALSE, message = FALSE, results="asis"}',
    'exams2forms(%s)',
    '```'
  )

  ## exams2forms arguments
  args <- list(...)
  if(!is.null(edir)) args <- c(list(edir = file_path_as_absolute(edir)), args)
  args <- c(list(n = n, nsamp = nsamp), args)
  args <- lapply(args, deparse)
  args <- lapply(args, paste, collapse = "\n")
  args <- paste(names(args), "=", unlist(args), collapse = ", ")
  args <- paste('exm, ', args)

  ## insert arguments into template
  template <- sprintf(
    paste(template, collapse = "\n"),
    title,
    paste(deparse(file), collapse = "\n"),
    args
  )

  ## write tutorial .Rmd
  name <- file.path(dir, paste0(name, c(".Rmd", ".html")))
  writeLines(template, name[1L])

  ## render quiz
  render(name[1L], clean = clean, quiet = quiet, envir = envir)
  name <- normalizePath(name)
  if(browse) browseURL(name[2L])
  invisible(name)
}