perf: use anyNA()

m-muecke · m-muecke · commit 26b0b1eadf34 · 2025-01-27T22:37:06.000+01:00
diff --git a/R/expect-known.R b/R/expect-known.R
@@ -215,5 +215,5 @@ expect_known_hash <- function(object, hash = NULL) {
 }
 
 all_utf8 <- function(x) {
-  ! any(is.na(iconv(x, "UTF-8", "UTF-8")))
+  !anyNA(iconv(x, "UTF-8", "UTF-8"))
 }

Original file line number	Diff line number	Diff line change
`@@ -215,5 +215,5 @@ expect_known_hash <- function(object, hash = NULL) {`
`215`	`215`	`}`
`216`	`216`
`217`	`217`	`all_utf8 <- function(x) {`
`218`		`- ! any(is.na(iconv(x, "UTF-8", "UTF-8")))`
	`218`	`+ !anyNA(iconv(x, "UTF-8", "UTF-8"))`
`219`	`219`	`}`