R/summary_general.R

In Matherion/mdmcda: Multi Decision Multi Criteria Decision Analysis

#' @export
summary_general <- function(criteria,
                            decisions_and_alternatives,
                            estimates) {

  res <- paste0("In this dynamic multi criteria decision aid, ",
                sum(criteria$criteriaDf$leafCriterion),
                " criteria have been specified, as well as ",
                nrow(decisions_and_alternatives$decisionsDf),
                " decisions that together encompass a total of ",
                nrow(decisions_and_alternatives$alternativesDf),
                " alternatives. This means that ",
                sum(criteria$criteriaDf$leafCriterion) * nrow(decisions_and_alternatives$alternativesDf),
                " estimates are required. Of these, ",
                nrow(estimates$estimatesDf),
                " have been specified.");

  if (is.null(knitr::opts_knit$get("rmarkdown.pandoc.to"))) {
    cat(res);
    return(invisible(res));
  } else {
    res <- knitr::asis_output(paste0("\n\n",
                                     res,
                                     "\n\n"));
    return(res);
  }

}