Escape input to cli_abort()

Author: hadley

R/build-article.R

@@ -290,7 +290,7 @@ wrap_rmarkdown_error <- function(cnd, input, call = caller_env()) {
   cli::cli_abort(
     c(
       "!" = "Failed to render {.path {input}}.",
-      set_names(lines, "x")
+      set_names(cli_escape(lines), "x")
     ),
     parent = cnd$parent %||% cnd,
     trace = cnd$parent$trace,

R/utils.R

@@ -227,3 +227,9 @@ print.pkgdown_xml <- function(x, ...) {
   cat(as.character(x, options = c("format", "no_declaration")), sep = "\n")
   invisible(x)
 }
+
+cli_escape <- function(x) {
+  x <- gsub("{", "{{", x, fixed = TRUE)
+  x <- gsub("}", "}}", x, fixed = TRUE)
+  x
+}