R/toolWriteMadratLog.R

In pik-piam/mstools: Tool functions that can be used by several madrat-dependent or magpie4 output functions

#' toolWriteMadratLog
#'
#' Tool function for writing madrat messages to a log file. Useful
#' after running madrat calculations which are performing checks via
#' \code{\link{toolExpectTrue}} or other toolExpect functions.
#' @param checkResults list of check results as returned by \code{\link{getMadratMessage}}
#' @param logPath path to the log file to be written
#' @author Pascal Sauer
#' @export
toolWriteMadratLog <- function(checkResults = getMadratMessage("status"), logPath = "status.log") {
  consistencyCheckLog <- NULL
  for (i in seq_along(checkResults)) {
    consistencyCheckLog <- paste(c(consistencyCheckLog,
                                   names(checkResults)[[i]],
                                   checkResults[[i]],
                                   ""),
                                 collapse = "\n")
  }
  writeLines(consistencyCheckLog, logPath)
}