R/logger.R

In ModelOriented/xspliner: Assisted Model Building, using Surrogate Black-Box Models to Train Interpretable Spline Based Additive Models

#' Helper function to print out log messages
#'
#' @param message Message that should be printed to R console
log_msg <- function(message) {
  if (getOption("xspliner.log", default = FALSE)) {
    cat(message, "\n")
  }
}