R/dc_validation_year_empty.R

In bd-R/bdchecks: Biodiversity Data Checks

#' @rdname dc_validation_year_empty
#' 
#' @param TARGET a vector of year information. To pass it must be
#' non-empty entry. 
#' 
dc_validation_year_empty <- function(TARGET = NULL) {
  result <- TARGET %>%
    gsub(" ", "", .) # Remove possible spaces
  result <- !is.na(result) & result != "" # Check if not empty
  return(result)
}