Use color for signals in R

color_signals.r

message("A message")
warning("A warning")
stop("An error")

globalCallingHandlers(
   message = function(c) {
      style <- crayon::make_style("white")
      c$message <- style(c$message)
      message(c)
      invokeRestart("muffleMessage")
   },
   warning = function(c) {
      style <- crayon::make_style("yellow")
      c$message <- style(c$message)
      warning(c)
      invokeRestart("muffleWarning")
   },
   error = function(c) {
      style <- crayon::make_style("red")
      c$message <- style(c$message)
      stop(c)
   }
)

message("A message")
warning("A warning")
stop("An error")