dhs: integrade to codelist

DESCRIPTION

@@ -11,11 +11,11 @@ Authors@R: c(
  person("Nils", "Enevoldsen", email = "nils@wlonk.com", role = "ctb", comment = c(ORCID = "0000-0001-7195-4117"))
  )
 Description: Standardize country names, convert them into one of
- eleven coding schemes, convert between coding schemes, and
+ 40 different coding schemes, convert between coding schemes, and
  assign region descriptors.
-Version: 1.1.2
+Version: 1.1.3
 URL: https://github.com/vincentarelbundock/countrycode
-Date: 2020-04-22
+Date: 2020-05-07
 Depends:
  R (>= 2.10)
 Suggests:

NEWS

@@ -1,3 +1,8 @@
+Version 1.1.3 (2020-05-07)
+--------------------------
+
+* Added Demographic and Health Surveys (thanks to @mcooper)
+
 Version 1.1.2 (2020-04-22)
 --------------------------
 

R/codelist.R

@@ -9,6 +9,7 @@
 #' \item country.name.de: country name (German)
 #' \item cowc: Correlates of War character
 #' \item cown: Correlates of War numeric
+#' \item dhs: Demographic and Health Surveys Program
 #' \item ecb: European Central Bank
 #' \item eurostat: Eurostat
 #' \item fao: Food and Agriculture Organization of the United Nations numerical code

R/countrycode.R

@@ -85,7 +85,7 @@ countrycode <- function(sourcevar, origin, destination, warn = TRUE, nomatch = N
  } else {
  dictionary = countrycode::codelist
  # Modify this manually when adding codes
- valid_origin = c("country.name", "country.name.de", "cowc", "cown",
+ valid_origin = c("country.name", "country.name.de", "cowc", "cown", "dhs",
  "ecb", "eurostat", "fao", "fips", "gaul", "genc2c",
  "genc3c", "genc3n", "gwc", "gwn", "imf", "ioc", "iso2c", "iso3c",
  "iso3n", "p4c", "p4n", "un", "un_m49", "unpd",

dictionary/build.R

@@ -4,6 +4,7 @@ source('dictionary/utilities.R')
 # Source: TRUE -- web source has priority. FALSE -- backup source has priority. 
 src = c('cldr' = FALSE,
  'cow_cs' = FALSE,
+ 'dhs' = FALSE,
  'ecb' = FALSE,
  'eurostat' = FALSE,
  'fao' = FALSE,

dictionary/get_dhs.R

@@ -1,9 +1,9 @@
 get_dhs = function() {
  url = 'https://api.dhsprogram.com/rest/dhs/countries?select=DHS_CountryCode,CountryName&f=json'
  dhs = jsonlite::fromJSON(url)[['Data']] %>%
- dplyr::select(CountryName, DHS_CountryCode) %>%
+ dplyr::select(CountryName, dhs = DHS_CountryCode) %>%
  dplyr::mutate(country.name.en.regex = CountryToRegex(CountryName)) %>%
  dplyr::select(-CountryName) %>%
- dplyr::filter(DHS_CountryCode != 'OS')
+ dplyr::filter(dhs != 'OS')
  return(dhs)
 }