stabilise missingness detection for 2D structures

teunbrand · teunbrand · commit e16979492f48 · 2025-06-16T22:19:22.000+02:00
diff --git a/R/scale-.R b/R/scale-.R
@@ -1331,7 +1331,7 @@ ScaleDiscrete <- ggproto("ScaleDiscrete", Scale,
       vec_slice(pal, match(as.character(x), limits, nomatch = vec_size(pal)))
 
     if (!is.na(na_value)) {
-      vec_slice(pal_match, is.na(x)) <- na_value
+      vec_slice(pal_match, vec_detect_missing(x)) <- na_value
     }
     pal_match
   },

Original file line number	Diff line number	Diff line change
`@@ -1331,7 +1331,7 @@ ScaleDiscrete <- ggproto("ScaleDiscrete", Scale,`
`1331`	`1331`	`vec_slice(pal, match(as.character(x), limits, nomatch = vec_size(pal)))`
`1332`	`1332`
`1333`	`1333`	`if (!is.na(na_value)) {`
`1334`		`- vec_slice(pal_match, is.na(x)) <- na_value`
	`1334`	`+ vec_slice(pal_match, vec_detect_missing(x)) <- na_value`
`1335`	`1335`	`}`
`1336`	`1336`	`pal_match`
`1337`	`1337`	`},`