fallback for StatAlign$finish_layer

teunbrand · teunbrand · commit a502f6c6650d · 2025-11-03T12:21:06.000+01:00
diff --git a/R/stat-align.R b/R/stat-align.R
@@ -77,7 +77,7 @@ StatAlign <- ggproto(
 
   finish_layer = function(data, params) {
     # Silently remove out-of-bounds padding vertices
-    var <- flipped_names(params$flipped_aes)$x
+    var <- flipped_names(params$flipped_aes %||% FALSE)$x
     remove <- is.na(data[[var]]) & (data$align_padding %||% FALSE)
     vec_slice(data, !remove)
   }

Original file line number	Diff line number	Diff line change
`@@ -77,7 +77,7 @@ StatAlign <- ggproto(`
`77`	`77`
`78`	`78`	`finish_layer = function(data, params) {`
`79`	`79`	`# Silently remove out-of-bounds padding vertices`
`80`		`- var <- flipped_names(params$flipped_aes)$x`
	`80`	`+ var <- flipped_names(params$flipped_aes %\|\|% FALSE)$x`
`81`	`81`	`remove <- is.na(data[[var]]) & (data$align_padding %\|\|% FALSE)`
`82`	`82`	`vec_slice(data, !remove)`
`83`	`83`	`}`