follow conventional inheritance to satisfy test

Author: teunbrand

R/theme-defaults.R

@@ -559,7 +559,10 @@ theme_void <- function(base_size = 11, base_family = "",
   # Only keep indispensable text: legend and plot titles
   t <- theme(
     line =               element_blank(),
-    rect =               element_blank(),
+    rect =               element_rect(
+                           fill = paper, colour = NA, linewidth = 0, linetype = 1,
+                           inherit.blank = FALSE
+                         ),
     polygon =            element_blank(),
     point =              element_blank(),
     text =               element_text(
@@ -591,12 +594,18 @@ theme_void <- function(base_size = 11, base_family = "",
     legend.box.margin =  rel(0),
     legend.box.spacing = unit(0.2, "cm"),
     legend.ticks.length = rel(0.2),
+    legend.background =  element_blank(),
+    legend.frame =       element_blank(),
+    legend.box.background = element_blank(),
     strip.clip =         "on",
     strip.text =         element_text(size = rel(0.8)),
     strip.switch.pad.grid = rel(0.5),
     strip.switch.pad.wrap = rel(0.5),
+    strip.background =   element_blank(),
     panel.ontop =        FALSE,
     panel.spacing =      NULL,
+    panel.background =   element_blank(),
+    panel.border =       element_blank(),
     plot.margin =        rel(0),
     plot.title =         element_text(
                            size = rel(1.2),
@@ -619,15 +628,9 @@ theme_void <- function(base_size = 11, base_family = "",
                            hjust = 0.5, vjust = 0.5
                          ),
     plot.tag.position =  'topleft',
+    plot.background =    element_rect(),
 
     complete = TRUE
-  ) + theme(
-    # Contrary to default behaviour, we do not want to inherit the plot
-    # background from a blank root element
-    plot.background = element_rect(
-      fill = paper, colour = NA, linewidth = 0, linetype = 1,
-      inherit.blank = FALSE
-    )
   )
 
   # make sure all elements are set to NULL if not explicitly defined