Replace more non-ASCII chars in toBiblatex.R file

Signed-off-by: Mathew W. McLean <[email protected]>
ropensci · Oct 7, 2024 · b3792fd · b3792fd
1 parent bc96669
commit b3792fd
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/R/toBiblatex.R b/R/toBiblatex.R
@@ -142,13 +142,16 @@ latexify <- function(x,
   substitutions <- c(substitutions, list(c("\\u0132", "\\\\IJ{}"),
                                          c("\\u0133", "\\\\ij{}"),
                                          c("\\u01f1", "DZ"), c("\\u01f2", "Dz"), 
-                                         c("\\u01f3", "dz"), c("\\u01c4", "DŽ"),
-                                         c("\\u01c5", "Dž"), c("\\u01c6", "dž"),
+                                         c("\\u01f3", "dz"), c("\\u01c4", "DZ\\u033c"),
+                                         c("\\u01c5", "Dz\\u030c"),
+                                         c("\\u01c6", "dz\\u030c"),
                                          c("\\u01c7", "LJ"), c("\\u01c8", "Lj"),
                                          c("\\u01c9", "lj"), c("\\u01ca", "NJ"),
                                          c("\\u01cb", "Nj"), c("\\u01cc", "nj"),
                                          c("\\ufb00", "ff"), c("\\ufb01", "fi"),
-                                         c("\\ufb02", "ſt"), c("\\ufb06", "st")))
+                                         c("\\ufb02", "fl"), c("\\ufb03", "ffi"),
+                                         c("\\ufb04", "ffl"), c("\\ufb05", "\\u017ft"),
+                                         c("\\ufb06", "st")))
   above <- list(diaeresis = c("\\u0308", "\""), acute = c("\\u0301", "'"),
                 dotabove = c("\\u0307", "."), macron = c("\\u0304", "="),
   circumflex = c("\\u0302", "^"), grave = c("\\u0300", "`"),