R/na_check.R

In ERottler/meltimr: Shiny App to investigate GRDC runoff data with regard to changes in runoff timing

#' Check for NA
#'
#' Check vector if NAs. Only use arrays with no NAs. If one NA all put to NA.
#'
#' @param data_in  Numeric data vector to be checked for NAs.
#' @export
na_check <- function(data_in){

  if(length(which(is.na(data_in))) > 0){
    data_in <- rep(NA, length(data_in))
  }

  return(data_in)

}