Polities harmonization

DESCRIPTION

@@ -26,6 +26,7 @@ Imports:
     readr,
     rlang,
     stringr,
+    sf,
     tidyr,
     withr,
     yaml,
@@ -34,14 +35,17 @@ Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.2
 Suggests: 
+    cshapes,
     ggplot2,
     googlesheets4,
     here,
     knitr,
+    lubridate,
     pointblank,
     rmarkdown,
     testthat (>= 3.0.0),
-    tibble
+    tibble,
+    units
 Config/testthat/edition: 3
 VignetteBuilder: knitr
 URL: https://eduaguilera.github.io/whep/, https://github.com/eduaguilera/whep

NAMESPACE

@@ -12,6 +12,7 @@ export(expand_trade_sources)
 export(get_bilateral_trade)
 export(get_faostat_data)
 export(get_feed_intake)
+export(get_polity_code)
 export(get_primary_production)
 export(get_primary_residues)
 export(get_processing_coefs)

R/code_names.R

@@ -34,10 +34,10 @@ add_area_name <- function(
   code_column = "area_code",
   name_column = "area_name"
 ) {
-  polities <- .get_polities(name_column, code_column)
+  countries <- .get_countries(name_column, code_column)
 
   table |>
-    dplyr::left_join(polities, {{ code_column }})
+    dplyr::left_join(countries, {{ code_column }})
 }
 
 #' Get area codes from area names
@@ -74,10 +74,10 @@ add_area_code <- function(
   name_column = "area_name",
   code_column = "area_code"
 ) {
-  polities <- .get_polities(name_column, code_column)
+  countries <- .get_countries(name_column, code_column)
 
   table |>
-    dplyr::left_join(polities, {{ name_column }})
+    dplyr::left_join(countries, {{ name_column }})
 }
 
 #' Get commodity balance sheet item names from item codes
@@ -232,8 +232,8 @@ add_item_prod_code <- function(
     dplyr::left_join(items, {{ name_column }})
 }
 
-.get_polities <- function(name_column, code_column) {
-  whep::polities |>
+.get_countries <- function(name_column, code_column) {
+  whep::countries |>
     dplyr::select(!!name_column := area_name, !!code_column := area_code)
 }
 

R/input_files.R

@@ -105,6 +105,8 @@ whep_list_file_versions <- function(file_alias) {
       nanoparquet::read_parquet() |>
       # Make sure it has `tbl_df` subclass, not present by default
       tibble::as_tibble()
+  } else if (extension == "geojson") {
+    sf::read_sf(path)
   } else {
     extensions <- purrr::map(paths, fs::path_ext)
     cli::cli_abort(