Use withCallingHandler when wrapping errors

instead of tryCatch to ensure that the error is handled correctly. This is considered best practice (More information error when `quarto_run()` fails #184).

Author: cderv

R/quarto.R

@@ -138,51 +138,19 @@ quarto_run <- function(
   if (!quarto_available(min = "1.8.13")) {
     custom_env <- c("current", QUARTO_R = R.home("bin"))
   }
-  res <- tryCatch(
-    {
-      processx::run(
-        quarto_bin,
-        args = args,
-        echo = echo,
-        error_on_status = TRUE,
-        echo_cmd = echo_cmd,
-        env = custom_env,
-        ...
-      )
-    },
-    error = function(e) {
-      if (!inherits(e, "system_command_status_error")) {
-        cli::cli_abort(
-          c("!" = "Error running quarto CLI from R."),
-          call = .call,
-          parent = e
-        )
-      } else {
-        msg <- c(x = "Error returned by quarto CLI.")
-        # if there is an error message from quarto CLI, add it to the message
-        if (e$stderr != "") {
-          quarto_error_msg <- xfun::split_lines(e$stderr)
-          names(quarto_error_msg) <- rep(" ", length(quarto_error_msg))
-          msg <- c(
-            msg,
-            " " = paste0(rep("-", nchar(msg)), collapse = ""),
-            quarto_error_msg
-          )
-        }
-
-        # if `--quiet` has been set, quarto CLI won't report any error (e$stderr will be empty)
-        # So remind user to run without `--quiet` to see the full error message
-        if (cli_arg_quiet() %in% args) {
-          msg <- c(
-            msg,
-            "i" = "Rerun with `quiet = FALSE` to see the full error message."
-          )
-        }
-
-        cli::cli_abort(msg, call = .call, parent = e)
-      }
-    }
+  res <- withCallingHandlers(
+    processx::run(
+      quarto_bin,
+      args = args,
+      echo = echo,
+      error_on_status = TRUE,
+      echo_cmd = echo_cmd,
+      env = custom_env,
+      ...
+    ),
+    error = function(e) wrap_quarto_error(e, args, .call = .call)
   )
+
   invisible(res)
 }
 
@@ -337,3 +305,41 @@ quarto_binary_sitrep <- function(verbose = TRUE, debug = FALSE) {
 
   return(same_config)
 }
+
+
+wrap_quarto_error <- function(cnd, args, .call = rlang::caller_env()) {
+  if (!inherits(cnd, "system_command_status_error")) {
+    cli::cli_abort(
+      c("!" = "Error running quarto CLI from R."),
+      call = .call,
+      parent = cnd
+    )
+  } else {
+    msg <- c(x = "Error returned by quarto CLI.")
+    # if there is an error message from quarto CLI, add it to the message
+    if (cnd$stderr != "") {
+      quarto_error_msg <- xfun::split_lines(cnd$stderr)
+      names(quarto_error_msg) <- rep(" ", length(quarto_error_msg))
+      msg <- c(
+        msg,
+        " " = paste0(rep("-", nchar(msg)), collapse = ""),
+        quarto_error_msg
+      )
+    }
+
+    # if `--quiet` has been set, quarto CLI won't report any error (cnd$stderr will be empty)
+    # So remind user to run without `--quiet` to see the full error message
+    if (cli_arg_quiet() %in% args) {
+      msg <- c(
+        msg,
+        "i" = "Rerun with `quiet = FALSE` to see the full error message."
+      )
+    }
+
+    cli::cli_abort(
+      msg,
+      call = .call,
+      parent = cnd,
+    )
+  }
+}