lol at my incompetence

teunbrand · teunbrand · commit ee8bd00b932f · 2025-02-10T10:11:09.000+01:00
diff --git a/R/legend-draw.R b/R/legend-draw.R
@@ -61,7 +61,7 @@ draw_key_rect <- function(data, params, size) {
   colour <- if (is.na(data$fill %||% NA)) data$colour
   rectGrob(gp = gg_par(
     col = NA,
-    fill = fill_alpha(col %||% "grey20", data$alpha),
+    fill = fill_alpha(colour %||% "grey20", data$alpha),
     lty = data$linetype %||% 1
   ))
 }

Original file line number	Diff line number	Diff line change
`@@ -61,7 +61,7 @@ draw_key_rect <- function(data, params, size) {`
`61`	`61`	`colour <- if (is.na(data$fill %\|\|% NA)) data$colour`
`62`	`62`	`rectGrob(gp = gg_par(`
`63`	`63`	`col = NA,`
`64`		`- fill = fill_alpha(col %\|\|% "grey20", data$alpha),`
	`64`	`+ fill = fill_alpha(colour %\|\|% "grey20", data$alpha),`
`65`	`65`	`lty = data$linetype %\|\|% 1`
`66`	`66`	`))`
`67`	`67`	`}`