Add a way to hide echo in render

while triggering some non quarto quiet tests

Author: cderv

R/quarto.R

@@ -159,6 +159,11 @@ quarto_run <- function(
     custom_env <- c("current", custom_env)
   }
 
+  # Special case for tests to force hiding echo
+  if (is_testing() && getOption("quarto.tests.hide_echo", FALSE)) {
+    echo <- FALSE
+  }
+
   res <- withCallingHandlers(
     processx::run(
       quarto_bin,

R/utils.R

@@ -213,3 +213,7 @@ is_empty_dir <- function(dir) {
   files <- list.files(dir, all.files = TRUE, no.. = TRUE)
   length(files) == 0
 }
+
+is_testing <- function() {
+  identical(Sys.getenv("TESTTHAT"), "true")
+}