consider verbose()

[jmbarbone]

utility for including easy verbosity

verbose <- function(...) {
  if (getOption("verbose")) {
    if (!(is.null(..1) && ...length() == 1L)) {
      message(...)
    }
  }

  invisible()
}

options(verbose = FALSE)
# does nothing
verbose("anything here")

options(verbose = TRUE)
# when ... is NULL, nothing will happen
verbose(NULL)

# prints as a message
verbose("hello")
#> hello

# will register as `NULL` but will still write to stdout
verbose(writeLines("one", "two"))
#> one
#> two