Skip to content

Commit

Permalink
Merge pull request #159 from RichardMN/lithuania
Browse files Browse the repository at this point in the history 
Refactor how regions are manipulated in Lithuania code
  • Loading branch information
@seabbs
seabbs authored Mar 23, 2021
2 parents 9245a53 + 1bdbe5d commit 85474dd
Show file tree
Hide file tree
Showing 5 changed files with 170 additions and 274 deletions.
114 changes: 6 additions & 108 deletions R/get_region_codes.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -285,36 +285,11 @@ get_italy_region_codes <- function() {
}

#' Lithuanian region codes
#' @importFrom tibble tribble
#'
#' @return (NULL) These are already presented by the
#' `get_lithuania_regional_cases_with_level_2` function
#'
get_lithuania_region_codes <- function() {

# The following code, adjusted from a version for France, was initially used
# to create lookup tables of Lithuanian municipality and country codes. These
# were then adjusted to match the format used by the Official Statistics
# Portal in their open data and are left as hard-coded tibbles. These codes
# have not changed in ten years.

# level_2_codes_url <- "https://en.wikipedia.org/wiki/ISO_3166-2:LT"
# level_2_codes_table <- level_2_codes_url %>%
# xml2::read_html() %>%
# rvest::html_nodes(xpath = '//*[@id="mw-content-text"]/div/table') %>%
# rvest::html_table(fill = TRUE)
region_codes <- tibble::tribble(
~level_1_region_code, ~region, ~region_en,
"LT-AL", "Alytaus apskritis", "Alytus County",
"LT-KU", "Kauno apskritis", "Kaunas County",
"LT-KL", "Klaip\u0117dos apskritis", "Klaip\u0117da County",
"LT-MR", "Marijampol\u0117s apskritis", "Marijampol\u0117 County",
"LT-PN", "Panev\u0117\u017eio apskritis", "Panev\u0117\u017eys County",
"LT-SA", "\u0160iauli\u0173 apskritis", "\u0160iauliai County",
"LT-TA", "Taurag\u0117s apskritis", "Taurag\u0117 County",
"LT-TE", "Tel\u0161i\u0173 apskritis", "Tel\u0161iai County",
"LT-UT", "Utenos apskritis", "Utena County",
"LT-VL", "Vilniaus apskritis", "Vilnius County",
NA, "nenustatyta", "unstated"
)
return(region_codes)
return (NULL)
}

#' US region codes
Expand Down Expand Up @@ -451,86 +426,9 @@ get_france_level_2_codes <- function() {
return(NULL)
}

#' Lithuania level 2 codes
#' @importFrom tibble tribble
#' Lithuania level 2 codes (Included in original function)
get_lithuania_level_2_codes <- function() {
# The following code, adjusted from a version for France, was initially used to
# create lookup tables of Lithuanian municipality and country codes.
# These were then adjusted to match the format used by the
# Official Statistics Portal in their open data and are left as
# hard-coded tibbles. These codes have not changed in ten years.

# level_2_codes_url <- "https://en.wikipedia.org/wiki/ISO_3166-2:LT"
# level_2_codes_table <- level_2_codes_url %>%
# xml2::read_html() %>%
# rvest::html_nodes(xpath = '//*[@id="mw-content-text"]/div/table') %>%
# rvest::html_table(fill = TRUE)

region_codes <- tibble::tribble(
~level_2_region_code, ~region, ~region_nomin, ~region_type,
"LT-01", "Akmen\u0117s r. sav.", "Akmen\u0117", "district municipality",
"LT-02", "Alytaus m. sav.", "Alytaus miestas", "city municipality",
"LT-03", "Alytaus r. sav.", "Alytus", "district municipality",
"LT-04", "Anyk\u0161\u010di\u0173 r. sav.", "Anyk\u0161\u010diai", "district municipality",
"LT-05", "Bir\u0161tono sav.", "Bir\u0161tono", "municipality",
"LT-06", "Bir\u017e\u0173 r. sav.", "Bir\u017eai", "district municipality",
"LT-07", "Druskinink\u0173 sav.", "Druskininkai", "municipality",
"LT-08", "Elektr\u0117n\u0173 sav.", "Elektr\u0117nai", "municipality",
"LT-09", "Ignalinos r. sav.", "Ignalina", "district municipality",
"LT-10", "Jonavos r. sav.", "Jonava", "district municipality",
"LT-11", "Joni\u0161kio r. sav.", "Joni\u0161kis", "district municipality",
"LT-12", "Jurbarko r. sav.", "Jurbarkas", "district municipality",
"LT-13", "Kai\u0161iadori\u0173 r. sav.", "Kai\u0161iadorys", "district municipality",
"LT-14", "Kalvarijos sav.", "Kalvarijos", "municipality",
"LT-16", "Kauno r. sav.", "Kaunas", "district municipality",
"LT-15", "Kauno m. sav.", "Kauno miestas", "city municipality",
"LT-17", "Kazl\u0173 R\u016bdos sav.", "Kazl\u0173 R\u016bdos", "municipality",
"LT-18", "K\u0117daini\u0173 r. sav.", "K\u0117dainiai", "district municipality",
"LT-19", "Kelm\u0117s r. sav.", "Kelm\u0117", "district municipality",
"LT-21", "Klaip\u0117dos r. sav.", "Klaip\u0117da", "district municipality",
"LT-20", "Klaip\u0117dos m. sav.", "Klaip\u0117dos miestas", "city municipality",
"LT-22", "Kretingos r. sav.", "Kretinga", "district municipality",
"LT-23", "Kupi\u0161kio r. sav.", "Kupi\u0161kis", "district municipality",
"LT-24", "Lazdij\u0173 r. sav.", "Lazdijai", "district municipality",
"LT-25", "Marijampol\u0117s sav.", "Marijampol\u0117", "district municipality",
"LT-26", "Ma\u017eeiki\u0173 r. sav.", "Ma\u017eeikiai", "district municipality",
"LT-27", "Mol\u0117t\u0173 r. sav.", "Mol\u0117tai", "district municipality",
"LT-28", "Neringos sav.", "Neringa", "municipality",
"LT-29", "Pag\u0117gi\u0173 sav.", "Pag\u0117giai", "municipality",
"LT-30", "Pakruojo r. sav.", "Pakruojis", "district municipality",
"LT-31", "Palangos m. sav.", "Palangos miestas", "city municipality",
"LT-32", "Panev\u0117\u017eio m. sav.", "Panev\u0117\u017eio miestas", "city municipality",
"LT-33", "Panev\u0117\u017eio r. sav.", "Panev\u0117\u017eys", "district municipality",
"LT-34", "Pasvalio r. sav.", "Pasvalys", "district municipality",
"LT-35", "Plung\u0117s r. sav.", "Plung\u0117", "district municipality",
"LT-36", "Prien\u0173 r. sav.", "Prienai", "district municipality",
"LT-37", "Radvili\u0161kio r. sav.", "Radvili\u0161kis", "district municipality",
"LT-38", "Raseini\u0173 r. sav.", "Raseiniai", "district municipality",
"LT-39", "Rietavo sav.", "Rietavo", "municipality",
"LT-40", "Roki\u0161kio r. sav.", "Roki\u0161kis", "district municipality",
"LT-41", "\u0160aki\u0173 r. sav.", "\u0160akiai", "district municipality",
"LT-42", "\u0160al\u010dinink\u0173 r. sav.", "\u0160al\u010dininkai", "district municipality",
"LT-44", "\u0160iauli\u0173 r. sav.", "\u0160iauliai", "district municipality",
"LT-43", "\u0160iauli\u0173 m. sav.", "\u0160iauli\u0173 miestas", "city municipality",
"LT-45", "\u0160ilal\u0117s r. sav.", "\u0160ilal\u0117", "district municipality",
"LT-46", "\u0160ilut\u0117s r. sav.", "\u0160ilut\u0117", "district municipality",
"LT-47", "\u0160irvint\u0173 r. sav.", "\u0160irvintos", "district municipality",
"LT-48", "Skuodo r. sav.", "Skuodas", "district municipality",
"LT-49", "\u0160ven\u010dioni\u0173 r. sav.", "\u0160ven\u010dionys", "district municipality",
"LT-50", "Taurag\u0117s r. sav.", "Taurag\u0117", "district municipality",
"LT-51", "Tel\u0161i\u0173 r. sav.", "Tel\u0161iai", "district municipality",
"LT-52", "Trak\u0173 r. sav.", "Trakai", "district municipality",
"LT-53", "Ukmerg\u0117s r. sav.", "Ukmerg\u0117", "district municipality",
"LT-54", "Utenos r. sav.", "Utena", "district municipality",
"LT-55", "Var\u0117nos r. sav.", "Var\u0117na", "district municipality",
"LT-56", "Vilkavi\u0161kio r. sav.", "Vilkavi\u0161kis", "district municipality",
"LT-57", "Vilniaus m. sav.", "Vilniaus miestas", "city municipality",
"LT-58", "Vilniaus r. sav.", "Vilnius", "district municipality",
"LT-59", "Visagino sav.", "Visaginas", "municipality",
"LT-60", "Zaras\u0173 r. sav.", "Zarasai", "district municipality",
NA, "nenustatyta", "unstated", NA
)
return (region_codes)
return (NULL)
}

#' US level 2 codes (FIPS) (Included in original function)
Expand Down
Loading

0 comments on commit 85474dd

Please sign in to comment.