R/quarto-args.R

In quarto-dev/quarto-r: R Interface to 'Quarto' Markdown Publishing System

cli_arg_profile <- function(profile, ...) {
  arg <- c("--profile", paste0(profile, collapse = ","))
  append_cli_args(arg, ...)
}

is_quiet <- function(quiet) {
  # in CI, follow debug mode
  if (in_ci_with_debug()) {
    return(FALSE)
  }
  # these option takes precedence
  quiet_options <- xfun::env_option("quarto.quiet", default = NA)
  if (!is.na(quiet_options)) {
    return(isTRUE(as.logical(quiet_options)))
  }
  isTRUE(quiet)
}

cli_arg_quiet <- function(...) {
  append_cli_args("--quiet", ...)
}

append_cli_args <- function(new, append_to = NULL, after = length(append_to)) {
  if (!is.null(append_to)) {
    return(append(append_to, new, after))
  }
  new
}