Once-per-session warning rather than error if font families are missi…

…ng, with default to 'sans' in such cases.
bschneidr · Dec 16, 2021 · 7c69bbc · 7c69bbc
1 parent 3ddf8e5
commit 7c69bbc
Show file tree

Hide file tree

Showing 2 changed files with 50 additions and 16 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -10,7 +10,8 @@ Encoding: UTF-8
 LazyData: true
 RoxygenNote: 7.1.1
 Imports: 
-    ggplot2
+    ggplot2,
+    rlang
 Suggests: 
     ggtext,
     extrafont
diff --git a/R/theme_schneidr.R b/R/theme_schneidr.R
@@ -105,8 +105,30 @@ theme_schneidr <- function(base_size = 8,
 
         } else {
 
-          stop(paste("The family", base_font_family, "is not available.",
-                     "Make sure the font is installed on this machine. If it's not one of R's default fonts, try registering and loading it with the `extrafont` package."))
+          rlang::warn(paste("The family", base_font_family, "is not available; using 'sans' instead.",
+                            "Make sure the font is installed on this machine. If it's not one of R's default fonts, try registering and loading it with the `extrafont` package."),
+                      .frequency = "once", .frequency_id = "base_font_family_warning")
+          base_font_family <- 'sans'
+        }
+      }
+    }
+
+    if (!titles_font_family %in% available_fonts) {
+      if ('extrafont' %in% .packages(all.available = TRUE)) {
+
+        if (titles_font_family %in% extrafont::fonts()) {
+
+          library('extrafont')
+          extrafont::loadfonts(device = 'win', quiet = TRUE)
+
+          warning(paste0('Fonts have been loaded via the `extrafont` package in order to use ', titles_font_family))
+
+        } else {
+
+          rlang::warn(paste("The family", titles_font_family, "is not available; using 'sans' instead.",
+                            "Make sure the font is installed on this machine. If it's not one of R's default fonts, try registering and loading it with the `extrafont` package."),
+                      .frequency = "once", .frequency_id = "titles_font_family_warning")
+          titles_font_family <- 'sans'
         }
       }
     }
@@ -307,20 +329,31 @@ theme_schneidr <- function(base_size = 8,
                                             axis.ticks.y = axis_ticks_y,
                                             # Axis text
                                             axis.text.x = axis_label_text_element(size = base_size, family = base_font_family,
-                                                                                colour = "#545454", vjust = 0.5, hjust = x_axis_text_hjust),
+                                                                                  colour = "#545454", vjust = 0.5, hjust = x_axis_text_hjust),
                                             axis.text.y = axis_label_text_element(size = base_size, colour = "#545454",
-                                                                                family = base_font_family, hjust = y_axis_text_hjust),
-                                            axis.title.x = axis_title_text_element(size = base_size*(1.1), colour = "#545454",
-                                                                                 face = "plain", family = base_font_family, angle = 0,
-                                                                                 margin = ggplot2::margin(t = (.8)*base_size, b = (.8)*base_size,
-                                                                                                          l = 0, r = 0,
-                                                                                                          unit = "pt")),
-                                            axis.title.y = axis_title_text_element(size = base_size*(1.1), colour = "#545454",
-                                                                                 face = "plain", family = base_font_family, angle = 0,
-                                                                                 vjust = 0.5,
-                                                                                 margin = ggplot2::margin(t = (.8)*base_size, b = (.8)*base_size,
-                                                                                                          l = 0, r = (.8)*base_size,
-                                                                                                          unit = "pt")),
+                                                                                  family = base_font_family, hjust = y_axis_text_hjust),
+                                            axis.title.x.bottom = axis_title_text_element(size = base_size*(1.1), colour = "#545454",
+                                                                                          face = "plain", family = base_font_family, angle = 0,
+                                                                                          margin = ggplot2::margin(t = (.8)*base_size, b = (.8)*base_size,
+                                                                                                                   l = 0, r = 0,
+                                                                                                                   unit = "pt")),
+                                            axis.title.y.left = axis_title_text_element(size = base_size*(1.1), colour = "#545454",
+                                                                                        face = "plain", family = base_font_family, angle = 0,
+                                                                                        vjust = 0.5,
+                                                                                        margin = ggplot2::margin(t = (.8)*base_size, b = (.8)*base_size,
+                                                                                                                 l = 0, r = (.8)*base_size,
+                                                                                                                 unit = "pt")),
+                                            axis.title.x.top = axis_title_text_element(size = base_size*(1.1), colour = "#545454",
+                                                                                       face = "plain", family = base_font_family, angle = 0,
+                                                                                       margin = ggplot2::margin(t = (.8)*base_size, b = (.8)*base_size,
+                                                                                                                l = 0, r = 0,
+                                                                                                                unit = "pt")),
+                                            axis.title.y.right = axis_title_text_element(size = base_size*(1.1), colour = "#545454",
+                                                                                         face = "plain", family = base_font_family, angle = 0,
+                                                                                         vjust = 0.5,
+                                                                                         margin = ggplot2::margin(t = (.8)*base_size, b = (.8)*base_size,
+                                                                                                                  l = 0, r = (.8)*base_size,
+                                                                                                                  unit = "pt")),
                                             # Strips used in facet labels
                                             strip.placement = "outside",
                                             strip.text.x = strip_text_element(size = base_size*(1.1), colour = "#545454",