R/my_complete_cases.R

In IMHarly/justapackage: Just a Package

Defines functions my_complete_cases

Documented in my_complete_cases

# my_complete_cases ####

#' my complete cases
#'
#' @export
my_complete_cases <- function(data) {
  data <- do.call(data.frame, lapply(data, function(x) replace(x, is.infinite(x), NA)))
  complete.cases(data)
}