Use R_QUARTO_QUIET instead to match quarto.quiet option name like in knitr

Author: cderv

NAMESPACE

@@ -43,5 +43,6 @@ importFrom(rstudioapi,isAvailable)
 importFrom(rstudioapi,viewer)
 importFrom(tools,vignetteEngine)
 importFrom(utils,browseURL)
+importFrom(xfun,env_option)
 importFrom(yaml,as.yaml)
 importFrom(yaml,write_yaml)

NEWS.md

@@ -31,7 +31,7 @@
 
 - `quarto_path()` now correctly return `NULL` when no quarto is found in the PATH (thanks, @jeroen, #220, #221).
 
-- `QUARTO_R_QUIET` environment variable can be used to set `quarto.quiet` option, which overrides any `quiet = TRUE` argument passed to `quarto_*` functions. This can be useful to debug Quarto rendering inside other packages, like **pkgdown**. Overrides will also now happens for [GHA debug logging](https://docs.github.com/en/actions/monitoring-and-troubleshooting-workflows/troubleshooting-workflows/enabling-debug-logging).
+- `R_QUARTO_QUIET` environment variable can be used to set `quarto.quiet` option, which overrides any `quiet = TRUE` argument passed to `quarto_*` functions. This can be useful to debug Quarto rendering inside other packages, like **pkgdown**. Overrides will also now happens for [GHA debug logging](https://docs.github.com/en/actions/monitoring-and-troubleshooting-workflows/troubleshooting-workflows/enabling-debug-logging).
 
 - Correctly report Quarto CLI error when background process call to `quarto` fails (thanks, @salim-b, [#235](https://github.com/quarto-dev/quarto-r/issues/235))
 

R/quarto-args.R

@@ -12,7 +12,7 @@ is_quiet <- function(quiet) {
     return(FALSE)
   }
   # these option takes precedence
-  quiet_options <- getOption("quarto.quiet", Sys.getenv("QUARTO_R_QUIET", NA))
+  quiet_options <- xfun::env_option("quarto.quiet", default = NA)
   if (!is.na(quiet_options)) {
     return(isTRUE(as.logical(quiet_options)))
   }

R/quarto-package.R

@@ -5,5 +5,6 @@
 #' @import rlang
 #' @importFrom cli cli_inform
 #' @importFrom tools vignetteEngine
+#' @importFrom xfun env_option
 ## usethis namespace: end
 NULL

R/render.R

@@ -40,7 +40,7 @@
 #' @param quiet Suppress warning and other messages, from R and also Quarto CLI
 #'   (i.e `--quiet` is passed as command line).
 #'
-#'   `quarto.quiet` \R option or `QUARTO_R_QUIET` environment variable can be used to globally override a function call
+#'   `quarto.quiet` \R option or `R_QUARTO_QUIET` environment variable can be used to globally override a function call
 #'   (This can be useful to debug tool that calls `quarto_*` functions directly).
 #'
 #'   On Github Actions, it will always be `quiet = FALSE`.
@@ -122,16 +122,22 @@ quarto_render <- function(
     script <- tempfile(fileext = ".R")
     render_args <- as.list(sys.call()[-1L])
     render_args <- mapply(
-      function(arg, arg_name) paste0(
-        arg_name,
-        "="[nchar(arg_name) > 0L],
-        deparse1(eval(arg, envir = parent.frame(n = 3L)))
-      ),
+      function(arg, arg_name) {
+        paste0(
+          arg_name,
+          "="[nchar(arg_name) > 0L],
+          deparse1(eval(arg, envir = parent.frame(n = 3L)))
+        )
+      },
       render_args,
       names(render_args)
     )
     writeLines(
-      paste0("quarto::quarto_render(", paste0(render_args, collapse = ", "), ")"),
+      paste0(
+        "quarto::quarto_render(",
+        paste0(render_args, collapse = ", "),
+        ")"
+      ),
       script
     )
     rstudioapi::jobRunScript(