Add quarto.quiet option to allow overriding quiet setting

This is useful to show more verbose message when `quarto_render` is used in other tools like pkgdown

Author: cderv

R/inspect.R

@@ -41,11 +41,9 @@ quarto_inspect <- function(input = ".",
     args <- c(args, c("--profile", paste0(profile, collapse = ",")))
   }
 
-  if (isTRUE(quiet)) args <- cli_arg_quiet(args)
-
   args <- c(args, quarto_args)
 
-  res <- quarto_run(args, quarto_bin = quarto_bin)
+  res <- quarto_run(args, quiet = isTRUE(quiet), quarto_bin = quarto_bin)
 
   fromJSON(res$stdout)
 }

R/quarto.R

@@ -47,7 +47,11 @@ quarto_version <- function() {
 }
 
 #' @importFrom processx run
-quarto_run <- function(args = character(), quarto_bin = find_quarto(), echo = FALSE, echo_cmd = getOption("quarto.echo_cmd", FALSE), ..., .call = rlang::caller_env()) {
+quarto_run <- function(args = character(), quarto_bin = find_quarto(), echo = FALSE, echo_cmd = getOption("quarto.echo_cmd", FALSE), quiet = FALSE, ..., .call = rlang::caller_env()) {
+  quiet <- getOption("quarto.quiet", FALSE) || quiet
+  if (quiet) {
+    if (!cli_arg_quiet() %in% args) args <- cli_arg_quiet(args)
+  }
   res <- tryCatch(
     {
       processx::run(quarto_bin, args = args, echo = echo, error_on_status = TRUE, echo_cmd = echo_cmd, ...)
@@ -61,8 +65,8 @@ quarto_run <- function(args = character(), quarto_bin = find_quarto(), echo = FA
   invisible(res)
 }
 
-quarto_run_what <- function(what = character(), args = character(), quarto_bin = find_quarto(), echo = FALSE, ..., .call = rlang::caller_env()) {
-  res <- quarto_run(quarto_bin, args = c(what, args), echo = echo, ..., .call = .call)
+quarto_run_what <- function(what = character(), args = character(), quarto_bin = find_quarto(), echo = FALSE, quiet = FALSE, ..., .call = rlang::caller_env()) {
+  res <- quarto_run(quarto_bin, args = c(what, args), echo = echo, quiet = quiet, ..., .call = .call)
   invisible(res)
 }
 

R/render.R

@@ -37,7 +37,9 @@
 #'   override metadata. This will be merged with `metadata` if both are
 #'   specified, with low precedence on `metadata` options.
 #' @param debug Leave intermediate files in place after render.
-#' @param quiet Suppress warning and other messages.
+#' @param quiet Suppress warning and other messages. `quarto.quiet` R options
+#'   will take precedence in any rendering, which is useful to have verbose
+#'   logging in pkgdown for example.
 #' @param profile [Quarto project
 #'   profile(s)](https://quarto.org/docs/projects/profiles.html) to use. Either
 #'   a character vector of profile names or `NULL` to use the default profile.
@@ -174,9 +176,6 @@ quarto_render <- function(input = NULL,
   if (isTRUE(debug)) {
     args <- c(args, "--debug")
   }
-  if (isTRUE(quiet)) {
-    args <- cli_arg_quiet(args)
-  }
   if (!is.null(profile)) {
     args <- cli_arg_profile(profile, args)
   }
@@ -188,7 +187,7 @@ quarto_render <- function(input = NULL,
   }
 
   # run quarto
-  quarto_run(args, echo = TRUE, quarto_bin = quarto_bin)
+  quarto_run(args, echo = TRUE, quiet = isTRUE(quiet), quarto_bin = quarto_bin)
 
   # no return value
   invisible(NULL)

man/quarto_add_extension.Rd

@@ -3,5 +3,5 @@
     Code
       quarto_render("input.qmd", quiet = TRUE, quarto_args = c("--to", "native"))
     Output
-      Running <quarto full path> render input.qmd --quiet --to native
+      Running <quarto full path> render input.qmd --to native --quiet
 

man/quarto_create_project.Rd

@@ -75,3 +75,19 @@ test_that("quarto CLI sitrep", {
     )
   )
 })
+
+test_that("quiet is handled in quarto run directly", {
+  skip_if_no_quarto()
+  skip_on_cran()
+  qmd <- local_qmd_file("content")
+  expect_output(quarto_run(c("render", qmd), echo = TRUE, quiet = TRUE), regexp = NA)
+  expect_output(quarto_run(c("render", qmd, "--quiet"), echo = TRUE), regexp = NA)
+})
+
+test_that("quarto.quiet options controls echo and overwrite function argument", {
+  skip_if_no_quarto()
+  skip_on_cran()
+  qmd <- local_qmd_file("content")
+  withr::local_options(list(quarto.quiet = TRUE))
+  expect_output(quarto_render(qmd, quiet = FALSE), regexp = NA)
+})