proof-of-principle hack

getting geom default from themes

Author: baptiste

R/geom-.r

@@ -67,12 +67,15 @@ Geom <- ggproto("Geom",
     )
   },
 
-  draw_layer = function(self, data, params, layout, coord) {
+  draw_layer = function(self, data, params, layout, coord, th) {
     if (empty(data)) {
       n <- if (is.factor(data$PANEL)) nlevels(data$PANEL) else 1L
       return(rep(list(zeroGrob()), n))
     }
 
+    # whereby complex values measure up to the real world and collapse
+    if(is.complex(data$colour)) data$colour <- th$plot.title$colour
+
     # Trim off extra parameters
     params <- params[intersect(names(params), self$parameters())]
 

R/geom-text.r

@@ -164,7 +164,7 @@ GeomText <- ggproto("GeomText", Geom,
   required_aes = c("x", "y", "label"),
 
   default_aes = aes(
-    colour = "black", size = 3.88, angle = 0, hjust = 0.5,
+    colour = 1i, size = 3.88, angle = 0, hjust = 0.5,
     vjust = 0.5, alpha = NA, family = "", fontface = 1, lineheight = 1.2
   ),
 

R/layer.r

@@ -301,14 +301,14 @@ Layer <- ggproto("Layer", NULL,
     self$stat$finish_layer(data, self$stat_params)
   },
 
-  draw_geom = function(self, data, layout, coord) {
+  draw_geom = function(self, data, layout, coord, th) {
     if (empty(data)) {
       n <- nrow(layout$panel_layout)
       return(rep(list(zeroGrob()), n))
     }
 
     data <- self$geom$handle_na(data, self$geom_params)
-    self$geom$draw_layer(data, self$geom_params, layout, coord)
+    self$geom$draw_layer(data, self$geom_params, layout, coord, th)
   }
 )
 

R/plot-build.r

@@ -147,7 +147,7 @@ ggplot_gtable <- function(data) {
   data <- data$data
   theme <- plot_theme(plot)
 
-  geom_grobs <- Map(function(l, d) l$draw_geom(d, layout, plot$coordinates),
+  geom_grobs <- Map(function(l, d) l$draw_geom(d, layout, plot$coordinates, th = theme),
     plot$layers, data)
 
   plot_table <- layout$render(geom_grobs, data, plot$coordinates, theme, plot$labels)