An attempt to automatically color annotate messages, warnings, and errors in R

condition-color-annotation.R

if (getRversion() >= "4.0.0" && requireNamespace("crayon", quietly = TRUE) && 
    utils::packageVersion("startup") >= "0.16.0-9001") {
  startup::on_session_start({
    globalCallingHandlers(
      message = function(c) {
        if (inherits(c, "tweaked_condition")) return()
        c$message <- cli::col_blue(conditionMessage(c))
        class(c) <- c("tweaked_condition", class(c))
        message(c)
        invokeRestart("muffleMessage")
      },
      warning = function(c) {
        if (inherits(c, "tweaked_condition")) return()
        c$message <- cli::col_yellow(conditionMessage(c))
        class(c) <- c("tweaked_condition", class(c))
        warning(c)
        invokeRestart("muffleWarning")
      },
      error = function(c) {
        if (inherits(c, "tweaked_condition")) return()
        c$message <- cli::style_bold(cli::col_red(conditionMessage(c)))
        class(c) <- c("tweaked_condition", class(c))
        stop(c)
      }
    )
  })
}