Add guidance to rerun with quiet = FALSE when the full error messag…

…e is not shown

closes #126

NEWS.md

@@ -1,5 +1,7 @@
 # quarto (development version)
 
+- Error message now advice to re-run with `quiet = FALSE` as `quarto_render(quiet = TRUE)` will make `quarto render` run in quiet mode (thanks, @gadenbuie, #126, @wlandau, #16).
+
 - **rsconnect** R package dependency has been moved to Suggest to reduce this package's overall number of dependencies. **rsconnect** package is only required for publishing using `quarto_publish_*()` functions. If not installed, users will be prompted to install (when in interactive mode).
 
 - Add `quarto_add_extension()` and `quarto_use_template()` to deal with Quarto extensions for a Quarto project. (thanks, @mcanouil, #45, @remlapmot, #42).

R/quarto.R

@@ -42,7 +42,12 @@ quarto_run <- function(args = character(), quarto_bin = find_quarto(), echo = FA
   res <- tryCatch({
     processx::run(quarto_bin, args = args, echo = FALSE, error_on_status = TRUE, echo_cmd = echo_cmd, ...)
   },
-    error = function(e) rlang::abort(c("Error running quarto cli:", x = e$stderr), call = .call, parent = e)
+    error = function(e) {
+      msg <- c("Error running quarto cli:")
+      if (nzchar(e$stderr)) msg <- c(msg, "x" = e$stderr)
+      if ("--quiet" %in% args) msg <- c(msg, "i" = "Rerun with `quiet = FALSE` to see the full error message.")
+      rlang::abort(msg, call = .call, parent = e)
+    }
   )
   invisible(res)
 }

tests/testthat/_snaps/quarto.md

@@ -0,0 +1,11 @@
+# quarto_run gives guidance in error
+
+    Code
+      quarto_run(c("rend", "--quiet"))
+    Condition
+      Error:
+      ! Error running quarto cli:
+      i Rerun with `quiet = FALSE` to see the full error message.
+      Caused by error:
+      ! System command 'quarto.exe' failed
+

tests/testthat/test-quarto.R

@@ -2,3 +2,8 @@ test_that("quarto_version returns a numeric version", {
   skip_if_no_quarto()
   expect_s3_class(quarto_version(), "numeric_version")
 })
+
+test_that("quarto_run gives guidance in error", {
+  skip_if_no_quarto()
+  expect_snapshot(quarto_run(c("rend", "--quiet")), error = TRUE)
+})