Better test for label.size (#2611)

hadley · web-flow · commit 53e46929be35 · 2018-05-16T16:09:38.000-07:00
Fixes #2607
diff --git a/R/geom-label.R b/R/geom-label.R
@@ -90,7 +90,7 @@ GeomLabel <- ggproto("GeomLabel", Geom,
           lineheight = row$lineheight
         ),
         rect.gp = gpar(
-          col = if (label.size == 0) NA else row$colour,
+          col = if (isTRUE(all.equal(label.size, 0))) NA else row$colour,
           fill = alpha(row$fill, row$alpha),
           lwd = label.size * .pt
         )

Original file line number	Diff line number	Diff line change
`@@ -90,7 +90,7 @@ GeomLabel <- ggproto("GeomLabel", Geom,`
`90`	`90`	`lineheight = row$lineheight`
`91`	`91`	`),`
`92`	`92`	`rect.gp = gpar(`
`93`		`- col = if (label.size == 0) NA else row$colour,`
	`93`	`+ col = if (isTRUE(all.equal(label.size, 0))) NA else row$colour,`
`94`	`94`	`fill = alpha(row$fill, row$alpha),`
`95`	`95`	`lwd = label.size * .pt`
`96`	`96`	`)`