Escape { } in cli message

cderv · cderv · commit 44b6a7673126 · 2025-10-31T09:42:58.000Z
diff --git a/R/quarto.R b/R/quarto.R
@@ -351,7 +351,7 @@ wrap_quarto_error <- function(cnd, args, .call = rlang::caller_env()) {
     msg <- c(
       msg,
       " " = paste0(rep("-", nchar(msg)), collapse = ""),
-      quarto_error_msg
+      cli_escape(quarto_error_msg)
     )
   }
 
diff --git a/R/utils.R b/R/utils.R
@@ -162,6 +162,12 @@ warn_or_error <- function(message, ..., .envir = parent.frame()) {
   }
 }
 
+cli_escape <- function(x) {
+  x <- gsub("{", "{{", x, fixed = TRUE)
+  x <- gsub("}", "}}", x, fixed = TRUE)
+  x
+}
+
 # inline knitr:::merge_list()
 merge_list <- function(x, y) {
   x[names(y)] <- y

Original file line number	Diff line number	Diff line change
`@@ -351,7 +351,7 @@ wrap_quarto_error <- function(cnd, args, .call = rlang::caller_env()) {`
`351`	`351`	`msg <- c(`
`352`	`352`	`msg,`
`353`	`353`	`" " = paste0(rep("-", nchar(msg)), collapse = ""),`
`354`		`- quarto_error_msg`
	`354`	`+ cli_escape(quarto_error_msg)`
`355`	`355`	`)`
`356`	`356`	`}`
`357`	`357`
Original file line number	Diff line number	Diff line change
`@@ -162,6 +162,12 @@ warn_or_error <- function(message, ..., .envir = parent.frame()) {`
`162`	`162`	`}`
`163`	`163`	`}`
`164`	`164`
	`165`	`+cli_escape <- function(x) {`
	`166`	`+ x <- gsub("{", "{{", x, fixed = TRUE)`
	`167`	`+ x <- gsub("}", "}}", x, fixed = TRUE)`
	`168`	`+ x`
	`169`	`+}`
	`170`	`+`
`165`	`171`	`# inline knitr:::merge_list()`
`166`	`172`	`merge_list <- function(x, y) {`
`167`	`173`	`x[names(y)] <- y`