Exclude underscores when finding appendices

rstudio · Nov 9, 2022 · c75dd79 · c75dd79
1 parent e67ab04
commit c75dd79
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/build_book.R b/R/build_book.R
@@ -14,8 +14,8 @@ appendices <- function(manual, manual_path = "manuals") {
     stringr::str_extract("^@appendix (.*)$") %>%
     na.omit() %>%
     c() %>%
-    # replace all punctuation except hyphen
-    gsub(r"([!\"#$%&'()*+,./:;<=>?@[\\]^_`\{|\}~])", "", .) %>%
+    # replace all punctuation except hyphen and underscore
+    gsub(r"([!\"#$%&'()*+,./:;<=>?@[\\]^`\{|\}~])", "", .) %>%
     gsub("@appendix ", "", .) %>%
     gsub("[[:space:]]", "-", .)