R/quiz.R

In ramnathv/RGoogleForms: Generate Google Forms from an R Markdown File.

create_quiz <- function(file, output){
  quiz = file %|% to_exercises %|% knit_exercises %|% parse_exercises
  layouts = get_layouts(system.file('bootstrap', 'layouts', package = 'RGoogleForms'))
  if (missing(output)) {
    output = gsub('.Rmd', '.html', file)
  }
  cat(render_quiz(quiz, layouts), file = output)
}