ensure if switch is scalar

teunbrand · teunbrand · commit 6c13d4784636 · 2025-06-13T17:12:16.000+02:00
diff --git a/R/guide-colorsteps.R b/R/guide-colorsteps.R
@@ -194,7 +194,7 @@ GuideColoursteps <- ggproto(
     params$title <- scale$make_title(params$title, scale$name, title)
 
     limits <- c(params$decor$min[1], params$decor$max[nrow(params$decor)])
-    if (params$reverse) {
+    if (isTRUE(params$reverse)) {
       limits <- rev(limits)
     }
     params$key$.value <- rescale(params$key$.value, from = limits)
diff --git a/R/position-dodge.R b/R/position-dodge.R
@@ -152,7 +152,7 @@ PositionDodge <- ggproto("PositionDodge", Position,
     data$order <- xtfrm( # xtfrm makes anything 'sortable'
       data$order %||% ave(data$group, data$x, data$PANEL, FUN = match_sorted)
     )
-    if (params$reverse) {
+    if (isTRUE(params$reverse)) {
       data$order <- -data$order
     }
     if (is.null(params$n)) { # preserve = "total"

Original file line number	Diff line number	Diff line change
`@@ -194,7 +194,7 @@ GuideColoursteps <- ggproto(`
`194`	`194`	`params$title <- scale$make_title(params$title, scale$name, title)`
`195`	`195`
`196`	`196`	`limits <- c(params$decor$min[1], params$decor$max[nrow(params$decor)])`
`197`		`- if (params$reverse) {`
	`197`	`+ if (isTRUE(params$reverse)) {`
`198`	`198`	`limits <- rev(limits)`
`199`	`199`	`}`
`200`	`200`	`params$key$.value <- rescale(params$key$.value, from = limits)`
Original file line number	Diff line number	Diff line change
`@@ -152,7 +152,7 @@ PositionDodge <- ggproto("PositionDodge", Position,`
`152`	`152`	`data$order <- xtfrm( # xtfrm makes anything 'sortable'`
`153`	`153`	`data$order %\|\|% ave(data$group, data$x, data$PANEL, FUN = match_sorted)`
`154`	`154`	`)`
`155`		`- if (params$reverse) {`
	`155`	`+ if (isTRUE(params$reverse)) {`
`156`	`156`	`data$order <- -data$order`
`157`	`157`	`}`
`158`	`158`	`if (is.null(params$n)) { # preserve = "total"`