R/modified_max.R

In zhanglynz/dfexplorer: 'dfexplorer' for explore new dataframe

#' modified max function
#'
#' if an_integer_vec has only NA's then return 0, otherwise return \code{max(x, na.rm = TRUE)}.
#' @param an_integer_vec A vector
#' @author Lingyun (Larry) Zhang \email{lyzhang10@gmail.com}

modified_max <- function(an_integer_vec)
{if(sum(is.na(an_integer_vec)) == length(an_integer_vec)) return(0)
  return(max(an_integer_vec, na.rm = TRUE))
}