R functions for displaying information, warnings, and errors.

utils-display.R

.verbose <- TRUE
.display_info <- function(x, ..., .envir = parent.frame(), verbose = .verbose) {
  if(!verbose) {
    return(invisible(NULL))
  }

  # usethis::ui_line(glue::glue('{x}'), .envir = .envir)
  # Reference: `usethis::ui_line()`
  x <- glue::glue_collapse(x, '\n')
  x <- glue::glue(x, .envir = .envir)
  cli::cat_line(x)
}

# NOTE: Ignore `verbose` for these.
.display_warning <- function(x, ..., .envir = parent.frame(), verbose = .verbose) {
  usethis::ui_warn(x, .envir = .envir)
}

.display_error <- function(x, ..., .envir = parent.frame(), verbose = .verbose) {
  usethis::ui_stop(x, .envir = .envir)
}