fallback for staplewidth in boxplot key

teunbrand · teunbrand · commit 1b2c30c8bef0 · 2024-11-20T09:21:44.000+01:00
diff --git a/R/legend-draw.R b/R/legend-draw.R
@@ -128,7 +128,7 @@ draw_key_boxplot <- function(data, params, size) {
     lwd = params$box_gp$linewidth
   )
 
-  staple_size <- 0.5 + c(0.375, -0.375) * params$staplewidth
+  staple_size <- 0.5 + c(0.375, -0.375) * (params$staplewidth %||% 0)
   staple <- gg_par(
     col = params$staple_gp$colour,
     lty = params$staple_gp$linetype,

Original file line number	Diff line number	Diff line change
`@@ -128,7 +128,7 @@ draw_key_boxplot <- function(data, params, size) {`
`128`	`128`	`lwd = params$box_gp$linewidth`
`129`	`129`	`)`
`130`	`130`
`131`		`- staple_size <- 0.5 + c(0.375, -0.375) * params$staplewidth`
	`131`	`+ staple_size <- 0.5 + c(0.375, -0.375) * (params$staplewidth %\|\|% 0)`
`132`	`132`	`staple <- gg_par(`
`133`	`133`	`col = params$staple_gp$colour,`
`134`	`134`	`lty = params$staple_gp$linetype,`