R/convert_na.R

In achafetz/adjuST: Adjust Site Tool Targets

Defines functions convert_na

Documented in convert_na

#' Convert NAs to Zeros
#'
#' @param df dataframe
#'
#' @export

convert_na <- function(df){

  df <- dplyr::mutate_if(df, is.numeric, ~ ifelse(!is.finite(.), 0, .))

  return(df)
}