Keep functional notation.

SebKrantz · Jun 1, 2024 · 1081f7b · 1081f7b
1 parent fb5aace
commit 1081f7b
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/highlight.R b/R/highlight.R
@@ -5,9 +5,9 @@ highlight_text <- function(text) {
   text <- gsub("[(", "`[`(", text, fixed = TRUE)
   text <- gsub("$(", "`$`(", text, fixed = TRUE)
   out <- downlit::highlight(text, classes = downlit::classes_pandoc())
-  out <- gsub("<span class='fu'>`[[`</span>", "<span class='fu'>[[</span>", out, fixed = TRUE)
-  out <- gsub("<span class='fu'>`[`</span>", "<span class='fu'>[</span>", out, fixed = TRUE)
-  out <- gsub("<span class='fu'>`$`</span>", "<span class='fu'>$</span>", out, fixed = TRUE)
+  # out <- gsub("<span class='fu'>`[[`</span>", "<span class='fu'>[[</span>", out, fixed = TRUE)
+  # out <- gsub("<span class='fu'>`[`</span>", "<span class='fu'>[</span>", out, fixed = TRUE)
+  # out <- gsub("<span class='fu'>`$`</span>", "<span class='fu'>$</span>", out, fixed = TRUE)
   if (!is.na(out)) {
     sourceCode(pre(out, r_code = TRUE))
   } else {