include new elements in is_theme_element(type)

Author: teunbrand

R/theme-elements.R

@@ -251,11 +251,14 @@ element_geom <- function(
 is_theme_element <- function(x, type = "any") {
   switch(
     type %||% "any",
-    any   = inherits(x, "element"),
-    rect  = inherits(x, "element_rect"),
-    line  = inherits(x, "element_line"),
-    text  = inherits(x, "element_text"),
-    blank = inherits(x, "element_blank"),
+    any     = inherits(x, "element"),
+    rect    = inherits(x, "element_rect"),
+    line    = inherits(x, "element_line"),
+    text    = inherits(x, "element_text"),
+    blank   = inherits(x, "element_blank"),
+    polygon = inherits(x, "element_polygon"),
+    point   = inherits(x, "element_point"),
+    geom    = inherits(x, "element_geom"),
     FALSE
   )
 }

R/theme.R

@@ -772,7 +772,7 @@ calc_element <- function(element, theme, verbose = FALSE, skip_blank = FALSE,
     # if we have null properties, try to fill in from ggplot_global$theme_default
     el_out <- combine_elements(el_out, ggplot_global$theme_default[[element]])
     nullprops <- vapply(el_out, is.null, logical(1))
-    if (inherits(el_out, "element_geom")) {
+    if (is_theme_element(el_out, "geom")) {
       # Geom elements are expected to have NULL fill/colour, so allow these
       # to be missing
       nullprops[c("colour", "fill")] <- FALSE