bump NA to back of key

teunbrand · teunbrand · commit dfcba7286445 · 2024-11-13T11:52:50.000+01:00
diff --git a/R/guide-bins.R b/R/guide-bins.R
@@ -208,7 +208,9 @@ GuideBins <- ggproto(
     params$show.limits <- show.limits
 
     if (params$reverse) {
-      key <- key[rev(seq_len(nrow(key))), , drop = FALSE]
+      ord <- seq_len(nrow(key))
+      key <- vec_slice(key, rev(ord))
+      key[params$aesthetic] <- vec_slice(key[params$aesthetic], c(ord[-1], ord[1]))
       key$.value <- 1 - key$.value
     }
 

Original file line number	Diff line number	Diff line change
`@@ -208,7 +208,9 @@ GuideBins <- ggproto(`
`208`	`208`	`params$show.limits <- show.limits`
`209`	`209`
`210`	`210`	`if (params$reverse) {`
`211`		`- key <- key[rev(seq_len(nrow(key))), , drop = FALSE]`
	`211`	`+ ord <- seq_len(nrow(key))`
	`212`	`+ key <- vec_slice(key, rev(ord))`
	`213`	`+ key[params$aesthetic] <- vec_slice(key[params$aesthetic], c(ord[-1], ord[1]))`
`212`	`214`	`key$.value <- 1 - key$.value`
`213`	`215`	`}`
`214`	`216`