swap vec_in() for %in% (#5606)

teunbrand · web-flow · commit 1b142f9f18dd · 2023-12-22T09:58:38.000+01:00
diff --git a/R/guide-legend.R b/R/guide-legend.R
@@ -724,7 +724,7 @@ keep_key_data <- function(key, data, aes, show) {
   }
   keep <- rep(FALSE, nrow(key))
   for (column in match) {
-    keep <- keep | vec_in(key$.value, data[[column]])
+    keep <- keep | key$.value %in% data[[column]]
   }
   keep
 }

Original file line number	Diff line number	Diff line change
`@@ -724,7 +724,7 @@ keep_key_data <- function(key, data, aes, show) {`
`724`	`724`	`}`
`725`	`725`	`keep <- rep(FALSE, nrow(key))`
`726`	`726`	`for (column in match) {`
`727`		`- keep <- keep \| vec_in(key$.value, data[[column]])`
	`727`	`+ keep <- keep \| key$.value %in% data[[column]]`
`728`	`728`	`}`
`729`	`729`	`keep`
`730`	`730`	`}`