R/details_decisions.R

In Matherion/mdmcda: Multi Decision Multi Criteria Decision Analysis

#' @export
details_decisions <- function(decisions_and_alternatives,
                              heading = "Details of decisions",
                              headingLevel = 2) {
  if (is.null(heading)) {
    res <- "\n\n";
  } else {
    res <- paste0("\n\n",
                  repStr("#", headingLevel),
                  " ",
                  heading,
                  "\n\n");
  }
  for (x in decisions_and_alternatives$decisions) {
    res <- paste0(res, "\n\n",
                  repStr("#", headingLevel+1),
                  " ", x$label, "\n\n");
    res <- paste0(res, "\n\n", x$description, "\n\n");
    for (i in x$alternatives) {
      res <-
        paste0(res, "- **", i$label, "** (alternative '`",
               i$value,
               "`'): ", i$description, "\n\n");
    }
  }
  res <- knitr::asis_output(res);
  return(res);
}