Support syntax highlighting for subset/assignment methods.

SebKrantz · Jun 1, 2024 · 5325213 · 5325213
1 parent 77ed3e1
commit 5325213
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/highlight.R b/R/highlight.R
@@ -1,7 +1,13 @@
 # highligh_text() and highlight_examples() are only used for usage
 # and examples, and are specifically excluded in tweak_reference_highlighting()
 highlight_text <- function(text) {
+  text <- gsub("[[(", "`[[`(", text, fixed = TRUE)
+  text <- gsub("[(", "`[`(", text, fixed = TRUE)
+  text <- gsub("$(", "`$`(", text, fixed = TRUE)
   out <- downlit::highlight(text, classes = downlit::classes_pandoc())
+  out <- gsub("`[[`(", "[[(", out, fixed = TRUE)
+  out <- gsub("`[`(", "[(", out, fixed = TRUE)
+  out <- gsub("`$`(", "$(", out, fixed = TRUE)
   if (!is.na(out)) {
     sourceCode(pre(out, r_code = TRUE))
   } else {