Ignore pandoc 'heading identifiers' in markdown text (#34)

ropensci · May 27, 2019 · 569a24f · 569a24f
1 parent 823e506
commit 569a24f
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/parse-markdown.R b/R/parse-markdown.R
@@ -30,6 +30,9 @@ parse_text_md <- function(path, extensions = TRUE, yaml_fields = c("title" ,"sub
     paste0(collapse = "\n", xml2::xml_text(xml2::xml_find_all(x, "./text")))
   }, character(1))
 
+  # Strip 'heading identifiers', see: https://pandoc.org/MANUAL.html#heading-identifiers
+  values <- gsub('\\{#[^\\n]+\\}\\s*($|\\r?\\n)', '\\1', values, perl = TRUE)
+
   data.frame(
     text = values,
     position = sourcepos,