R/transform-remove_empty_cases.R

In IsaacVerm/find.apartment.analysis: Analyse Immoweb data to find a new appartment to rent.

indices_empty_cases <- function(listings) {
  ind_empty_cases <- which(rowSums(!is.na(listings)) == 0)
}

#' @import dplyr
remove_empty_cases <- function(listings) {
  listings <- listings %>%
    slice(-indices_empty_cases(listings))
}