# NOT RUN {
#========================================================================================
# If a list does not contain NAs, then return TRUE
#========================================================================================
#'d <- list(a=c(1,1),aa = c(2,2),aaa =c(3,3,3))
is_na_list(d)
#========================================================================================
# If a list contains NAs, then return TRUE
#========================================================================================
d <- list(a=c(NA,1),aa = c(2,2),aaa =c(3,3,3))
is_na_list(d)
#========================================================================================
# Note that a data frame is a list of equal-length vectors
#========================================================================================
d <- is_na_list(data.frame(c(1,1)))
is_na_list(d)
d <- is_na_list(data.frame(c(1,NA)))
is_na_list(d)
# }
Run the code above in your browser using DataLab