R/remove_inf_and_nan.R

In padilla410/SWMPrExtension: Functions for Analyzing and Plotting Estuary Monitoring Data

#' Replace Inf/-Inf/NaN values
#'
#' Replace \code{Inf}, \code{-Inf}, and \code{NaN} in a matrix with \code{NA}
#'
#' @param x input matrix
#'
#' @import ggplot2
#'
#' @export
#'
#' @details This function replaces \code{Inf}, \code{-Inf}, and \code{NaN} in a matrix with \code{NA}. It is used internally by several functions.
#'
#' @author Julie Padilla
#'
#' @concept miscellaneous
#'
#' @return Returns a \code{matrix} object
#'
remove_inf_and_nan <- function(x) {
  x[is.na(x)] <- NA
  x <- apply(x, 2, function(x) {
    x[is.infinite(x)] <- NA
    return(x)
  })
}