test if less or equal is handle

fix #49
larmarange · Nov 20, 2023 · b4e1d79 · b4e1d79
1 parent 1788587
commit b4e1d79
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,10 @@
 # ggstats (development version)
 
+**Bug fixes**
+
+* fix in `ggcoef_model()` and other similar functions when Unicode character
+  'less or equal' is not handle by the system
+
 # ggstats 0.5.0
 
 **Improvements**

diff --git a/R/ggcoef_model.R b/R/ggcoef_model.R
@@ -1152,7 +1152,13 @@ ggcoef_data <- function(
 
   if (!is.null(significance)) {
     if (is.null(significance_labels)) {
-      significance_labels <- paste(c("p \u2264", "p >"), significance)
+      # test if \u2264 could be safely used
+      test_unicode <- purrr::quietly(function() {plot(0, main = "\u2264")})
+      if (length(test_unicode()$warnings) == 0) {
+        significance_labels <- paste(c("p \u2264", "p >"), significance)
+      } else {
+        significance_labels <- paste(c("p <=", "p >"), significance)
+      }
     }
     data$significance <- factor(
       !is.na(data$p.value) & data$p.value <= significance,