14 lines
322 B
R
14 lines
322 B
R
|
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)
|