Update counterpart names for Germany

Teal-Insights · Dec 2, 2024 · e57d985 · e57d985
1 parent 171b980
commit e57d985
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/R/sysdata.rda b/R/sysdata.rda
diff --git a/data-raw/wbids-data.R b/data-raw/wbids-data.R
@@ -228,9 +228,15 @@ counterparts_ids_cleaned <- counterparts_ids_enriched |>
       select(geography_id, geography_iso2code, geography_type, geography_name),
     join_by(geography_id, geography_iso2code, geography_type)
   ) |>
-  mutate(counterpart_name = if_else(
-    !is.na(geography_name), geography_name, counterpart_name
-  )) |>
+  mutate(
+    counterpart_name = if_else(
+      !is.na(geography_name), geography_name, counterpart_name
+    ),
+    counterpart_name = case_when(
+      counterpart_name == "German Dem. Rep." ~ "German Democratic Republic",
+      .default = counterpart_name
+    )
+  ) |>
   select(-geography_name)
 
 global_ifis <- c(