protect if-clause (#6302)

teunbrand · web-flow · commit df315af8e2a2 · 2025-01-28T14:20:08.000+01:00
diff --git a/R/geom-ribbon.R b/R/geom-ribbon.R
@@ -132,7 +132,7 @@ GeomRibbon <- ggproto("GeomRibbon", Geom,
       strsplit(self$required_aes, "|", fixed = TRUE),
       `[[`, i = 1, character(1)
     )
-    if (params$flipped_aes || any(data$flipped_aes) %||% FALSE) {
+    if (isTRUE(params$flipped_aes || any(data$flipped_aes) %||% FALSE)) {
       vars <- switch_orientation(vars)
     }
     vars <- c(vars, self$non_missing_aes)

Original file line number	Diff line number	Diff line change
`@@ -132,7 +132,7 @@ GeomRibbon <- ggproto("GeomRibbon", Geom,`
`132`	`132`	`strsplit(self$required_aes, "\|", fixed = TRUE),`
`133`	`133`	`[[`, i = 1, character(1)
`134`	`134`	`)`
`135`		`- if (params$flipped_aes \|\| any(data$flipped_aes) %\|\|% FALSE) {`
	`135`	`+ if (isTRUE(params$flipped_aes \|\| any(data$flipped_aes) %\|\|% FALSE)) {`
`136`	`136`	`vars <- switch_orientation(vars)`
`137`	`137`	`}`
`138`	`138`	`vars <- c(vars, self$non_missing_aes)`