Add fallbacks for non-Unicode locales

gvelasq · Apr 7, 2021 · 7c5d689 · 7c5d689
1 parent 02a338f
commit 7c5d689
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 6 deletions.
diff --git a/R/statascii.R b/R/statascii.R
@@ -200,20 +200,20 @@ wrap_tbl <- function(tbl, M = M, M1 = M1, width = getOption("width")) {
 }
 
 add_line <- function(n) {
-  tmp <- purrr::map_chr(n, ~paste0(rep(color_grey("\u2500"), . + 2L), collapse = ""))
-  paste0(color_grey("\u2500"), paste0(tmp, collapse = color_grey("\u253c")))
+  tmp <- purrr::map_chr(n, ~paste0(rep(color_grey(u2500), . + 2L), collapse = ""))
+  paste0(color_grey(u2500), paste0(tmp, collapse = color_grey(u253c)))
 }
 
 add_dash <- function(n) {
   tmp <- purrr::map_chr(n, ~paste0(rep(color_grey("-"), . + 2L), collapse = ""))
-  paste0(color_grey("-"), paste0(tmp, collapse = color_grey("\u253c")))
+  paste0(color_grey("-"), paste0(tmp, collapse = color_grey(u253c)))
 }
 
 add_row_oneway <- function(x, n) {
   row_content <- purrr::map2_chr(x, seq_along(x), ~sprintf(paste0("%", n[.y], "s"), .x))
   paste0(
     paste0(paste0("  ", row_content[1], " "), collapse = ""),
-    color_grey("\u2502"),
+    color_grey(u2502),
     " ",
     paste0(paste0(" ", row_content[-1], " "), collapse = " ")
   )
@@ -223,9 +223,9 @@ add_row_twoway <- function(x, n) {
   row_content <- purrr::map2_chr(x, seq_along(x), ~sprintf(paste0("%", n[.y], "s"), .x))
   paste0(
     paste0(paste0(" ", row_content[1], " "), collapse = ""),
-    color_grey("\u2502"),
+    color_grey(u2502),
     paste0(paste0(" ", row_content[2:(length(row_content) - 1L)], " "), collapse = ""),
-    color_grey("\u2502"),
+    color_grey(u2502),
     paste0(paste0(" ", row_content[length(row_content)], " "), collapse = " ")
   )
 }
diff --git a/R/utils.R b/R/utils.R
@@ -56,3 +56,13 @@ color_grey <- function(x) {
 color_red <- function(x) {
   crayon::red(x)
 }
+
+if (l10n_info()[["UTF-8"]]) {
+  u2500 <- "\u2500"
+  u2502 <- "\u2502"
+  u253c <- "\u253c"
+} else {
+  u2500 <- "-"
+  u2502 <- "|"
+  u253c <- "+"
+}