R/isNaDS.R

In dsBase: 'DataSHIELD' Server Site Base Functions

#' 
#' @title Checks if a vector is empty 
#' @description this function is similar to R function \code{is.na} but instead of a vector 
#' of booleans it returns just one boolean to tell if all the element are missing values.
#' @param xvect a numerical or character vector
#' @return the integer '1' if the vector contains on NAs and '0'  otherwise
#' @author Gaye, A.
#' @export
#'
isNaDS <- function(xvect){
  
  out <- is.na(xvect)
  total <- sum(out, na.rm=TRUE)
  if(total==(1*length(out))){
    return(TRUE)
  }else{
    return(FALSE)
  }
}