R/exercise.R

In exams.forge: Support for Compiling Examination Tasks using the 'exams' Package

#' @rdname exercise
#' @aliases exercise_data
#' @title Data Exercise Structure
#' @description Data structure for exercise data.
#'
#' @param exer an exercise object (default: \code{NULL})
#' @param ... further parameters
#'
#' @return An exercise object.
#' @export
#'
#' @examples
#' exer <- exercise()           # new exercise
#' exer <- exercise(exer, x=3)  # add x to the exercise
exercise <- function(exer, ...) { UseMethod("exercise") }

#' @rdname exercise
#' @export
exercise.default <- function(exer=NULL, ...) {
  if (is.null(exer)) exer <- structure(list(), class=c("exercise", "list"))
  stopifnot("exercise" %in% class(exer))
  args  <- list(...)
  if (length(args)) {
    nargs <- names(args)
    if (is.null(nargs)) stop("only named parameters allowed")
    for (arg in nargs) {
      if (!is.null(exer[[arg]])) warning (sprintf("component '%s' overwritten", arg))
      exer[[arg]] <- args[[arg]]
    }
  }
  exer
}

#' @rdname exercise
#' @export
# exercise_data <- function(...){
#  exercise(...)}
exercise_data <- exercise