R/S3_makePCAReport.R

In ptl93/AEDA: Automated Exploratory Data Analysis

#' Creates an PCA Report object
#'
#' @param analysis.obj [\code{PCAObj} Object]\cr
#'   A object of the "PCAObj" class
#' @return PCAReport
#' @examples
#' pca.task = makePCATask(id = "iris.test", data = iris, center = TRUE, target = "Species")
#' pca.result = makePCA(pca.task)
#' pca.report = makeReport(pca.result)
#' @import checkmate
#' @export
makeReport.PCAObj = function(analysis.obj){
  assertClass(analysis.obj, "PCAObj")
  #report.id = reportId()
  report.id = deparse(substitute(analysis.obj))
  makeS3Obj("PCAReport",
   task = analysis.obj$task,
   pca.result = analysis.obj,
   report.id = report.id,
   type = "PCAReport")
}

print.PCAReport = function(x, ...) {
  print(x$task)
}