R/print.grade_scale.R

In adsteen/gradr:

##' print grade scale objects
##'
##' This is basically a placeholder to see whether I am writing methods correctly
##'
##' @param grade_scale A grade scale object
##'
print.grade_scale <- function(grade_scale) {
  cat(c("grade cutoffs:", grade_scale$grade.cutoffs, "\n"))
  cat(c("grade scale:  ", grade_scale$grade.labels))
}