Add support for quiet in quarto use template()

Related to quarto-dev/quarto-cli#8438 for proper `--quiet` support

R/use.R

@@ -9,6 +9,8 @@
 #'   repository as described in the documentation
 #'   <https://quarto.org/docs/extensions/formats.html>.
 #'
+#' @param quiet Suppress warnings and messages.
+#'
 #'
 #' @examples
 #' \dontrun{
@@ -20,17 +22,18 @@
 #' }
 #'
 #' @export
-quarto_use_template <- function(template, no_prompt = FALSE, quarto_args = NULL) {
+quarto_use_template <- function(template, no_prompt = FALSE, quiet = FALSE, quarto_args = NULL) {
   rlang::check_required(template)
 
   quarto_bin <- find_quarto()
 
     # This will ask for approval or stop installation
   check_extension_approval(no_prompt, "Quarto templates", "https://quarto.org/docs/extensions/formats.html#distributing-formats")
 
+  # quarto use template does not support `--quiet` so we mimic it by suppressing `echo` in processx
+  # TODO: Change if / when https://github.com/quarto-dev/quarto-cli/issues/8438
   args <- c("template", template, "--no-prompt", quarto_args)
-
-  quarto_use(args, quarto_bin = quarto_bin, echo = TRUE)
+  quarto_use(args, quarto_bin = quarto_bin, echo = !quiet)
 
   invisible()
 }

tests/testthat/test-use.R

@@ -4,7 +4,7 @@ test_that("Installing an extension", {
   dir <- withr::local_tempdir()
   withr::local_dir(dir)
   expect_error(quarto_use_template("quarto-journals/jss"), "explicit approval")
-  quarto_use_template("quarto-journals/jss", no_prompt = TRUE)
+  quarto_use_template("quarto-journals/jss", no_prompt = TRUE, quiet = TRUE)
   expect_true(dir.exists("_extensions/quarto-journals/jss"))
   expect_length(list.files(pattern = "[.]qmd$"), 1)
 })