Added automatic cloze functionality

NAMESPACE

@@ -1,5 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(cloze,character)
+S3method(cloze,numeric)
 export(answer_multichoice)
 export(answer_numerical)
 export(answer_shortanswer)

R/answer.R

@@ -80,3 +80,28 @@ choices <- function(options, answer) {
   names(i) <- options
   i
 }
+
+#' Succinctly create a suitable cloze question
+#'
+#' @param x The correct answer
+#' @param ... Options passed on to other methods
+#'
+#' @export
+cloze <- function(x, ...) {
+  UseMethod("cloze")
+}
+
+#' @export
+cloze.numeric <- function(x, ...) {
+  answer_numerical(x, ...)
+}
+
+#' @export
+cloze.character <- function(x, choices = NULL, ...) {
+  if(is.null(choices))
+    answer_shortanswer(x, ...)
+  else if(length(x) > 1)
+    answer_multichoice(choices(choices, x))
+  else
+    answer_singlechoice(choices(choices, x))
+}