perf: use anyNA() (#452)

m-muecke · web-flow · commit a394310fb9fa · 2025-03-13T19:16:15.000+01:00
diff --git a/R/xml_namespaces.R b/R/xml_namespaces.R
@@ -93,7 +93,7 @@ xml_ns_rename <- function(old, ...) {
   new <- c(...)
 
   m <- match(names(new), names(old))
-  if (any(is.na(m))) {
+  if (anyNA(m)) {
     missing <- paste(names(new)[is.na(m)], collapse = ", ")
     cli::cli_abort("Some prefixes [{missing}] don't already exist.")
   }

Original file line number	Diff line number	Diff line change
`@@ -93,7 +93,7 @@ xml_ns_rename <- function(old, ...) {`
`93`	`93`	`new <- c(...)`
`94`	`94`
`95`	`95`	`m <- match(names(new), names(old))`
`96`		`- if (any(is.na(m))) {`
	`96`	`+ if (anyNA(m)) {`
`97`	`97`	`missing <- paste(names(new)[is.na(m)], collapse = ", ")`
`98`	`98`	`cli::cli_abort("Some prefixes [{missing}] don't already exist.")`
`99`	`99`	`}`