Add test for theme_dune + change "local" to point to the filename

Add test for `theme_dune` + change "local" to point to the filename itself

R/theme_dune.R

@@ -67,7 +67,7 @@ theme_dune <- function(dune_font = TRUE, ...){
   # CUSTOM FONT: add a custom font from google fonts
   font_family = ifelse(dune_font,"Dune_Rise","sans") # use this line if you have a custom font
   if (dune_font) {
-    ThemePark:::initialize_font(name = "Dune_Rise", family = "Dune_Rise", local = "Dune_Rise")
+    ThemePark:::initialize_font(name = "Dune_Rise", family = "Dune_Rise", local = "Dune_Rise.ttf")
   }
 
   # CUSTOM THEME:

R/utils.R

@@ -22,7 +22,7 @@ initialize_font <- function(name, family = name, local=NULL, ...) {
     if (is.null(local))  {
       sysfonts::font_add_google(name = name, family = family, ...)
     }  else  {
-      sysfonts::font_add(local, paste0(path.package("ThemePark"), "/fonts/", local, ".ttf"))
+      sysfonts::font_add(family = family, paste0(path.package("ThemePark"), "/fonts/", local))
     }
   } else {
     invisible(curr_families)

tests/testthat/test-theme_dune.R

@@ -0,0 +1,10 @@
+test_that("`theme_dune` runs", {
+  x <- theme_dune()
+
+  testthat::expect_equal(class(x), c('theme', 'gg'))
+})
+
+test_that("output of `theme_dune` is stable", {
+  testthat::skip_if_not_installed('vdiffr')
+  vdiffr::expect_doppelganger('A blank theme_dune plot', ggplot2::ggplot() + theme_dune())
+})