data-raw/sn_country_codes.R

In giocomai/streetnamer: Match street names to their Wikidata identifier with a Shiny interface

## code to prepare `sn_country_codes` dataset goes here

sn_country_codes <- readr::read_csv(file = "https://datahub.io/core/country-list/r/data.csv")

sn_country_codes <- dplyr::bind_rows(sn_country_codes,
                                     tibble::tibble(Name = "Kosovo", Code = "XK"))


sn_country_codes$Name[sn_country_codes$Code == "MD"] <- "Moldova"

sn_country_codes <- sn_country_codes %>%
  dplyr::filter(is.na(Code) == FALSE)

usethis::use_data(sn_country_codes, overwrite = TRUE)