handle specific transformation for windows CI

quarto is install with scoop, and somehow the normalization of the symlink does not happen
in quarto stack strace on CI

Author: cderv

R/quarto.R

@@ -3,17 +3,22 @@
 #' Determine the path to the quarto binary. Uses `QUARTO_PATH` environment
 #' variable if defined, otherwise uses `Sys.which()`.
 #'
+#' @param normalize If `TRUE` (default), normalize the path using [base::normalizePath()].
+#'
 #' @return Path to quarto binary (or `NULL` if not found)
 #'
 #' @export
-quarto_path <- function() {
+quarto_path <- function(normalize = TRUE) {
   path_env <- get_quarto_path_env()
   quarto_path <- if (is.na(path_env)) {
     path <- unname(Sys.which("quarto"))
     if (nzchar(path)) path else return(NULL)
   } else {
     path_env
   }
+  if (!normalize) {
+    return(quarto_path)
+  }
   normalizePath(quarto_path, winslash = "/", mustWork = FALSE)
 }
 

man/quarto_path.Rd

@@ -158,6 +158,12 @@ transform_quarto_cli_in_output <- function(
         # look for normalized path
         lines <- hide_path(lines, quarto_found_normalized)
 
+        # look for specific non-symlink path from Quarto CLI output
+        non_normalized_path <- quarto_path(normalize = FALSE)
+        non_normalized_path_slash <- gsub("\\\\", "/", non_normalized_path)
+        lines <- hide_path(lines, non_normalized_path)
+        lines <- hide_path(lines, non_normalized_path_slash)
+
         # seems like there are quotes around path in CI windows
         lines <- gsub(
           "\"<quarto full path>([^\"]*)\"",