fix: check there is a theme before searching for fonts

davidgohel · Feb 24, 2024 · 8dcef40 · 8dcef40
1 parent 2f8aba4
commit 8dcef40
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: ggiraph
 Type: Package
 Title: Make 'ggplot2' Graphics Interactive
 Description: Create interactive 'ggplot2' graphics using 'htmlwidgets'.
-Version: 0.8.9.003
+Version: 0.8.9.004
 Authors@R: c(
     person("David", "Gohel", role = c("aut", "cre"),
     email = "[email protected]"),

diff --git a/R/fonts.R b/R/fonts.R
@@ -113,6 +113,7 @@ fortify_font_db <- function(){
 }
 
 list_theme_fonts <- function(gg) {
+  if(is.null(names(gg)) || is.null(gg[["theme"]])) return(character())
   element_text_set <- Filter(f = function(x) inherits(x, "element_text") && !is.null(x$family), gg[["theme"]])
   fonts <- vapply(
     X = element_text_set,