R/x5utils.R

In avraam-1997/x5-utils: What the Package Does (One Line, Title Case)

logRule <- function(left = "", center = "", right = "") {
  console_threshold <- lgr$appenders$console$threshold
  lgr$appenders$console$set_threshold("off")
  capture.output(cli_rule(left = left, center = center, right = right)) %>%
    purrr::walk(lgr$info)
  if (left != "") left <- style_bold(col_black(left))
  if (center != "") center <- style_bold(col_black(center))
  if (right != "") right <- col_grey(right)
  cat("\n")
  cli_rule(left = left, center = center, right = right)
  lgr$appenders$console$set_threshold(console_threshold)
}