R/points.R

In andrew-griffen/griffen: Functions For Research and Teaching.

#' R6 method that keeps tracks of a counter increment and of total points
#'
#' Useful for making quizzes and exams
#' @keywords points
#' @importFrom R6 R6Class
#' @export

points <- R6Class("points", list(
  total = 0,
  i = 0,
  count = function(x = 1) {
    self$i <- self$i + 1 
    invisible(self)
  },
  p = function(x) {
    self$count()
    self$total <- self$total + x 
    if (x==1){
      p = paste0(self$i, ". (", x, " point)",sep="")
    }else{
      p = paste0(self$i, ". (", x, " points)",sep="")
    }
    return(p)
  }
  )
)