R/tidy-map_to_english.R

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

#' @import dplyr
state_to_english <- function(listings) {
  listings %>%
    mutate(current_state = recode(current_state,
                                  "Goede staat" = "good",
                                  "Op te frissen" = "to be renovated",
                                  "Uitstekende staat" = "excellent",
                                  "Vernieuwd" = "renovated",
                                  .default = NA_character_))
}