quarto.quiet option needs to take precedence

Author: cderv

R/quarto.R

@@ -48,7 +48,9 @@ quarto_version <- function() {
 
 #' @importFrom processx run
 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
+  # this option takes precedence
+  if (!is.na(getOption("quarto.quiet", NA))) quiet <- getOption("quarto.quiet", NA)
+  # if quiet, add the flag to quarto call
   if (quiet) {
     if (!cli_arg_quiet() %in% args) args <- cli_arg_quiet(args)
   }

tests/testthat/test-quarto.R

@@ -88,6 +88,10 @@ 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)
+  withr::with_options(list(quarto.quiet = TRUE), {
+    expect_output(quarto_render(qmd, quiet = FALSE), regexp = NA)
+  })
+  withr::with_options(list(quarto.quiet = FALSE), {
+    expect_output(quarto_render(qmd, quiet = TRUE))
+  })
 })