fix: use height_cm instead of width_cm

Kirill Müller · Kirill Müller · commit 4d99445ebecc · 2014-02-25T15:27:26.000+01:00
diff --git a/R/facet-wrap.r b/R/facet-wrap.r
@@ -164,7 +164,7 @@ facet_render.wrap <- function(facet, panel, coord, theme, geom_grobs) {
   # If not listed, assume is unit(1, "null")
   widths <- list(
     axis_l = width_cm(grobs$axis_l),
-    vspace = ifelse(layout$COL == ncol, 0, height_cm(theme$panel.margin))
+    vspace = ifelse(layout$COL == ncol, 0, width_cm(theme$panel.margin))
   )
   heights <- list(
     panel = unit(aspect_ratio, "null"),

Original file line number	Diff line number	Diff line change
`@@ -164,7 +164,7 @@ facet_render.wrap <- function(facet, panel, coord, theme, geom_grobs) {`
`164`	`164`	`# If not listed, assume is unit(1, "null")`
`165`	`165`	`widths <- list(`
`166`	`166`	`axis_l = width_cm(grobs$axis_l),`
`167`		`- vspace = ifelse(layout$COL == ncol, 0, height_cm(theme$panel.margin))`
	`167`	`+ vspace = ifelse(layout$COL == ncol, 0, width_cm(theme$panel.margin))`
`168`	`168`	`)`
`169`	`169`	`heights <- list(`
`170`	`170`	`panel = unit(aspect_ratio, "null"),`