R/class_testMultiple.R

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

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

#' @export
print.testMultiple <- function(x, ...) {
  print(x$f)
  cat(sprintf("%s post-hoc test with %s p-value adjustment for output %s", x$tags$scope, x$tags$method, x$tags$target))
}

#' @export
.testMultiple <- function(names, pvalues, friedman, experiment, alpha, tags){
  
  ph <- list(
    "names"       = names,
    "pvalues"     = pvalues,
    "friedman"    = friedman,
    "experiment"  = experiment,
    "tags"        = tags
  )
  
  class(ph) <- c("testMultiple", "reportable")
  ph
}