cities <- readr::read_csv("data-raw/city_geocoordinates.csv")

cities <- cities |>
  janitor::clean_names() |>
  rename(city = x1)

cities <- cities |>
  dplyr::mutate(dplyr::across(where(is.character), tolower))

cities <- cities |>
  get_decimal_coordinates(has_coordinates)

usethis::use_data(cities, overwrite = TRUE)