test if less or equal is handled

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 handled by the system
+
 # ggstats 0.5.0
 
 **Improvements**

R/ggcoef_model.R

@@ -1152,7 +1152,13 @@
 
   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,

README.md

@@ -47,13 +47,13 @@ mod1 <- lm(Fertility ~ ., data = swiss)
 ggcoef_model(mod1)
 ```
 
-<img src="man/figures/README-unnamed-chunk-4-1.png" width="100%" />
+<img src="man/figures/README-unnamed-chunk-4-1.png" width="100%" /><img src="man/figures/README-unnamed-chunk-4-2.png" width="100%" />
 
 ``` r
 ggcoef_table(mod1)
 ```
 
-<img src="man/figures/README-unnamed-chunk-4-2.png" width="100%" />
+<img src="man/figures/README-unnamed-chunk-4-3.png" width="100%" /><img src="man/figures/README-unnamed-chunk-4-4.png" width="100%" />
 
 ## Comparing several models
 
@@ -69,7 +69,7 @@ models <- list(
 ggcoef_compare(models, type = "faceted")
 ```
 
-<img src="man/figures/README-unnamed-chunk-5-1.png" width="100%" />
+<img src="man/figures/README-unnamed-chunk-5-1.png" width="100%" /><img src="man/figures/README-unnamed-chunk-5-2.png" width="100%" />
 
 ## Compute custom proportions