R/class_exReport.R

In jacintoArias/exreport: Fast, Reliable and Elegant Reproducible Research

#' @importFrom methods is
is.exReport <- function(x) {
  is(x, "exReport")
}

#' @export
print.exReport <- function (x, ...) {
  print(paste0("Report (",length(x$content),") elements. Title: ", x$title))
}

#' @export
summary.exReport <- function (object, ...) {
  print(paste0("Report (",length(object$content),") elements. Title: ", object$title))
  print("----------------------------------------")
  print(object$content)
}

#Constructor
.exReport <- function(title) {
  rep <- list(
    "title"   = title,
    "content" = list()
  )
  
  class(rep) <- c("exReport")
  rep
}

####################
# Interface: reportable
########
#
# Purpose: All classes that implements this interface must have the function.
# This functions (the generic definition and the specific class implementations)
# are in the file web_reports.R
#

is.reportable <- function(x) {
  is(x, "reportable")
}