add range backtransformation function. closes tidyverse#2820.

clauswilke · clauswilke · commit 635a80020ee7 · 2018-08-17T18:16:11.000-05:00
diff --git a/R/sf.R b/R/sf.R
@@ -353,6 +353,10 @@ CoordSf <- ggproto("CoordSf", CoordCartesian,
     )
   },
 
+  backtransform_range = function(panel_params) {
+    list(x = panel_params$x_range, y = panel_params$y_range)
+  },
+
   # CoordSf enforces a fixed aspect ratio -> axes cannot be changed freely under faceting
   is_free = function() FALSE,
 

Original file line number	Diff line number	Diff line change
`@@ -353,6 +353,10 @@ CoordSf <- ggproto("CoordSf", CoordCartesian,`
`353`	`353`	`)`
`354`	`354`	`},`
`355`	`355`
	`356`	`+ backtransform_range = function(panel_params) {`
	`357`	`+ list(x = panel_params$x_range, y = panel_params$y_range)`
	`358`	`+ },`
	`359`	`+`
`356`	`360`	`# CoordSf enforces a fixed aspect ratio -> axes cannot be changed freely under faceting`
`357`	`361`	`is_free = function() FALSE,`
`358`	`362`