deal with NULL margins (#5739)

teunbrand · web-flow · commit 5b08ed8e9fef · 2024-03-18T08:57:56.000+01:00
diff --git a/R/guide-legend.R b/R/guide-legend.R
@@ -652,7 +652,8 @@ keep_key_data <- function(key, data, aes, show) {
   keep
 }
 
-position_margin <- function(position, margin = margin(), gap = unit(0, "pt")) {
+position_margin <- function(position, margin = NULL, gap = unit(0, "pt")) {
+  margin <- margin %||% margin()
   switch(
     position,
     top    = replace(margin, 3, margin[3] + gap),

Original file line number	Diff line number	Diff line change
`@@ -652,7 +652,8 @@ keep_key_data <- function(key, data, aes, show) {`
`652`	`652`	`keep`
`653`	`653`	`}`
`654`	`654`
`655`		`-position_margin <- function(position, margin = margin(), gap = unit(0, "pt")) {`
	`655`	`+position_margin <- function(position, margin = NULL, gap = unit(0, "pt")) {`
	`656`	`+ margin <- margin %\|\|% margin()`
`656`	`657`	`switch(`
`657`	`658`	`position,`
`658`	`659`	`top = replace(margin, 3, margin[3] + gap),`