exploit hexbin::hexcoords(n) arg

teunbrand · teunbrand · commit 3b9867cb75b0 · 2025-11-05T10:48:35.000+01:00
diff --git a/R/geom-hex.R b/R/geom-hex.R
@@ -25,9 +25,8 @@ GeomHex <- ggproto("GeomHex", Geom,
       dy <- resolution(data$y, FALSE, TRUE) / sqrt(3) / 2 * 1.15
     }
 
-    hexC <- hexbin::hexcoords(dx, dy, n = 1)
-
     n <- nrow(data)
+    hexC <- hexbin::hexcoords(dx, dy, n = n)
 
     hexdata <- data[rep(seq_len(n), each = 6), c("x", "y")]
     hexdata$x <- rep.int(hexC$x, n) + hexdata$x

Original file line number	Diff line number	Diff line change
`@@ -25,9 +25,8 @@ GeomHex <- ggproto("GeomHex", Geom,`
`25`	`25`	`dy <- resolution(data$y, FALSE, TRUE) / sqrt(3) / 2 * 1.15`
`26`	`26`	`}`
`27`	`27`
`28`		`- hexC <- hexbin::hexcoords(dx, dy, n = 1)`
`29`		`-`
`30`	`28`	`n <- nrow(data)`
	`29`	`+ hexC <- hexbin::hexcoords(dx, dy, n = n)`
`31`	`30`
`32`	`31`	`hexdata <- data[rep(seq_len(n), each = 6), c("x", "y")]`
`33`	`32`	`hexdata$x <- rep.int(hexC$x, n) + hexdata$x`