no_wrap() also needs to escape

Author: hadley

R/utils.R

@@ -47,6 +47,8 @@ is_rstudio_running <- function() {
 
 # Suppress cli wrapping
 no_wrap <- function(x) {
+  x <- gsub("{", "{{", x, fixed = TRUE)
+  x <- gsub("}", "}}", x, fixed = TRUE)
   x <- gsub(" ", "\u00a0", x, fixed = TRUE)
   x <- gsub("\n", "\f", x, fixed = TRUE)
   x