Add test for unicodes. unicode conversion is not exhaustive, so

Author: thebioengineer

R/helpers.R

@@ -3311,6 +3311,7 @@ latex_unicode_chars <- c(
     "\U03CD"="\\ensuremath{\\acute\\upsilon}",           # GREEK SMALL LETTER UPSILON WITH TONOS [�\u008d]",
     "\U03CE"="\\ensuremath{\\acute\\omega}",             # GREEK SMALL LETTER OMEGA WITH TONOS [�\u008e]",
 
+    "\U0251"='\\ensuremath{\\alpha}',                  # Greek Small Letter Alpha",
     "\U03B1"='\\ensuremath{\\alpha}',                  # Greek Small Letter Alpha",
     "\U03B2"='\\ensuremath{\\beta}',
     "\U03B3"='\\ensuremath{\\gamma}',
@@ -4090,8 +4091,8 @@ latex_unicode_chars <- c(
     "\U2AFD"='\\ensuremath{{{/}\\!\\!{/}}}',                          # DOUBLE SOLIDUS OPERATOR [⫽]")
 
     # CJK Symbols Punktuation (!) U+3000 : for \langle/\rangle
-    "\U3008"='\\ensuremath{\langle}',
-    "\U3009"='\\ensuremath{\rangle}'
+    "\U3008"='\\ensuremath{\\langle}',
+    "\U3009"='\\ensuremath{\\rangle}'
 )
 
 # escape_latex() ---------------------------------------------------------------
@@ -4142,7 +4143,7 @@ escape_latex <- function(text) {
 
   regmatches(text[!na_text], m) <- escaped_chars
 
-  m2 <- gregexpr(paste0(names(latex_unicode_chars),collapse = "|"), text[!na_text], perl = TRUE)
+  m2 <- gregexpr(paste0("[",paste0(names(latex_unicode_chars), collapse = ""),"]"), text[!na_text], perl = TRUE)
 
   unicode_chars <- regmatches(text[!na_text], m2)
 

tests/testthat/test-as_latex.R

@@ -356,3 +356,36 @@ test_that("Table can apply font sizes", {
   expect_snapshot(gt_latex_font_size_10_subtitle_20)
 
 })
+
+test_that("Tables with unicode characters were acceptable and updated to latex compliant code", {
+
+  gt_tbl_unicode <- data.frame( unicode = c("ɑβΔ")) %>%
+    gt() %>%
+    tab_header(
+      title = "≥ unicode text",
+      subtitle = "≠ not equal"
+    ) %>%
+    as_latex()
+
+  ##  title should be \\ensuremath{\\geq} unicode text
+  expect_match(
+    gt_tbl_unicode %>% as.character(),
+    "\\ensuremath{\\geq} unicode text",
+    fixed = TRUE
+    )
+
+  ##  subtitle should be \\ensuremath{\\neq} not equal
+  expect_match(
+    gt_tbl_unicode %>% as.character(),
+    "\\ensuremath{\\neq} not equal",
+    fixed = TRUE
+  )
+
+  ##  content should be \\\ensuremath{\\alpha}\\ensuremath{\\beta}\\ensuremath{\\Delta}
+  expect_match(
+    gt_tbl_unicode %>% as.character(),
+    "\n\\ensuremath{\\alpha}\\ensuremath{\\beta}\\ensuremath{\\Delta} \\\\",
+    fixed = TRUE
+  )
+
+})