back to vapply

MichaelChirico · MichaelChirico · commit ec4e22aaa6ae · 2023-08-10T05:58:58.000Z
diff --git a/R/namespace_linter.R b/R/namespace_linter.R
@@ -131,9 +131,10 @@ namespace_symbols <- function(ns, exported = TRUE) {
   }
 }
 is_in_pkg <- function(symbols, namespaces, exported = TRUE) {
-  mapply(
-    function(pkg_sym, pkg_ns) pkg_sym %in% namespace_symbols(pkg_ns, exported = exported),
-    symbols, namespaces
+  vapply(
+    seq_along(symbols),
+    function(ii) symbols[[ii]] %in% namespace_symbols(namespaces[[ii]], exported = exported),
+    logical(1L)
   )
 }
 

Original file line number	Diff line number	Diff line change
`@@ -131,9 +131,10 @@ namespace_symbols <- function(ns, exported = TRUE) {`
`131`	`131`	`}`
`132`	`132`	`}`
`133`	`133`	`is_in_pkg <- function(symbols, namespaces, exported = TRUE) {`
`134`		`- mapply(`
`135`		`- function(pkg_sym, pkg_ns) pkg_sym %in% namespace_symbols(pkg_ns, exported = exported),`
`136`		`- symbols, namespaces`
	`134`	`+ vapply(`
	`135`	`+ seq_along(symbols),`
	`136`	`+ function(ii) symbols[[ii]] %in% namespace_symbols(namespaces[[ii]], exported = exported),`
	`137`	`+ logical(1L)`
`137`	`138`	`)`
`138`	`139`	`}`
`139`	`140`