Correct limits transformation in coord_map.

hadley · hadley · commit 66147fb59637 · 2015-12-12T07:00:44.000-06:00
Fixes #1421
diff --git a/R/coord-map.r b/R/coord-map.r
@@ -128,7 +128,7 @@ CoordMap <- ggproto("CoordMap", Coord,
       if (is.null(limits)) {
         range <- scale$dimension(expand_default(scale))
       } else {
-        range <- range(scale_transform(scale, limits))
+        range <- range(scale$transform(limits))
       }
       ranges[[n]] <- range
     }

Original file line number	Diff line number	Diff line change
`@@ -128,7 +128,7 @@ CoordMap <- ggproto("CoordMap", Coord,`
`128`	`128`	`if (is.null(limits)) {`
`129`	`129`	`range <- scale$dimension(expand_default(scale))`
`130`	`130`	`} else {`
`131`		`- range <- range(scale_transform(scale, limits))`
	`131`	`+ range <- range(scale$transform(limits))`
`132`	`132`	`}`
`133`	`133`	`ranges[[n]] <- range`
`134`	`134`	`}`