coords get data argument

Author: teunbrand

R/coord-.R

@@ -147,7 +147,7 @@ Coord <- ggproto("Coord",
     panel_params
   },
 
-  train_panel_guides = function(self, panel_params, layers, params = list()) {
+  train_panel_guides = function(self, panel_params, layers, params = list(), data = NULL) {
 
     aesthetics <- c("x", "y", "x.sec", "y.sec")
 

R/coord-map.R

@@ -249,7 +249,7 @@ CoordMap <- ggproto("CoordMap", Coord,
     panel_params
   },
 
-  train_panel_guides = function(self, panel_params, layers, params = list()) {
+  train_panel_guides = function(self, panel_params, layers, params = list(), data = NULL) {
     panel_params
   },
 

R/coord-polar.R

@@ -175,7 +175,7 @@ CoordPolar <- ggproto("CoordPolar", Coord,
     panel_params
   },
 
-  train_panel_guides = function(self, panel_params, layers, default_mapping, params = list()) {
+  train_panel_guides = function(self, panel_params, ...) {
     panel_params
   },
 

R/coord-radial.R

@@ -237,7 +237,7 @@ CoordRadial <- ggproto("CoordRadial", Coord,
     panel_params
   },
 
-  train_panel_guides = function(self, panel_params, layers, params = list()) {
+  train_panel_guides = function(self, panel_params, layers, params = list(), data = NULL) {
 
     aesthetics <- c("r", "theta", "r.sec", "theta.sec")
     aesthetics <- intersect(aesthetics, names(panel_params$guides$aesthetics))

R/coord-sf.R

@@ -276,7 +276,7 @@ CoordSf <- ggproto("CoordSf", CoordCartesian,
     panel_params
   },
 
-  train_panel_guides = function(self, panel_params, layers, params = list()) {
+  train_panel_guides = function(self, panel_params, layers, params = list(), data = NULL) {
     # The guide positions are already in the target CRS, so we mask the default
     # CRS to prevent a double transformation.
     panel_params$guides <- ggproto_parent(Coord, self)$train_panel_guides(