Ensures that DOIs with lower and upper case letters are matched in re…

…place_doi_citations.
crsh · Oct 8, 2024 · 7104b4d · 7104b4d
1 parent 57af39c
commit 7104b4d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/replace_doi.R b/R/replace_doi.R
@@ -63,7 +63,7 @@ replace_doi_citations <- function(rmd, bib = NULL) {
     readLines_utf8(con = rmd)
     , setNames(
       paste0("@", names(entries))
-      , paste0("@(doi:|DOI:|(https://)*doi.org/)*", entries)
+      , paste0("@(doi:|DOI:|(https://)*doi.org/)*((", toupper(entries), ")|(", tolower(entries), "))")
     )
   ) |>
     writeLines(con = rmd, useBytes = TRUE)

diff --git a/man/replace_doi_citations.Rd b/man/replace_doi_citations.Rd