R/any-na.R

In nlist: Lists of Numeric Atomic Objects

Defines functions anyNA.nlists anyNA.nlist

#' @export
anyNA.nlist <- function(x, recursive = FALSE) {
  anyNA(unclass(x), recursive = TRUE)
}

#' @export
anyNA.nlists <- function(x, recursive = FALSE) {
  x <- lapply(x, unclass)
  anyNA(unclass(x), recursive = TRUE)
}

Try the nlist package in your browser