R/util_output.R

In rundel/checklist: A package for running checks on projects and other assignments

list_items = function(text, files, sub = NULL, symbol = cli::col_red(cli::symbol$cross), indent = 0, sort=TRUE) {

  if (getOption("checklist.quiet", default = FALSE))
    return()

  if (sort)
    files = sort(files)

  theme = list(
    ul = list("list-style-type" = symbol, "padding-left" = indent)
  )

  cli::cli_div(theme = theme)
  cli::cli_text(text)
  cli::cli_rule()
  cli::cli_ul(files)
  cli::cli_end()
}

quietly = function(code) {
  old = options(checklist.quiet = TRUE)
  on.exit(options(old))
  code
}