Remove lingering panel ref (#1794)

thomasp85 · web-flow · commit bc9e69fd44d3 · 2016-09-28T20:08:08.000+02:00
diff --git a/R/facet-wrap.r b/R/facet-wrap.r
@@ -215,7 +215,7 @@ FacetWrap <- ggproto("FacetWrap", Facet,
     # ask the coordinate system if it wants to specify one
     aspect_ratio <- theme$aspect.ratio
     if (is.null(aspect_ratio) && !params$free$x && !params$free$y) {
-      aspect_ratio <- coord$aspect(panel$ranges[[1]])
+      aspect_ratio <- coord$aspect(ranges[[1]])
     }
 
     if (is.null(aspect_ratio)) {

Original file line number	Diff line number	Diff line change
`@@ -215,7 +215,7 @@ FacetWrap <- ggproto("FacetWrap", Facet,`
`215`	`215`	`# ask the coordinate system if it wants to specify one`
`216`	`216`	`aspect_ratio <- theme$aspect.ratio`
`217`	`217`	`if (is.null(aspect_ratio) && !params$free$x && !params$free$y) {`
`218`		`- aspect_ratio <- coord$aspect(panel$ranges[[1]])`
	`218`	`+ aspect_ratio <- coord$aspect(ranges[[1]])`
`219`	`219`	`}`
`220`	`220`
`221`	`221`	`if (is.null(aspect_ratio)) {`