Initial commit

Author: murphy-xq

.DS_Store

@@ -0,0 +1,2 @@
+^.*\.Rproj$
+^\.Rproj\.user$

.Rbuildignore

@@ -0,0 +1,3 @@
+.Rproj.user
+.Rhistory
+.RData

.gitignore

@@ -0,0 +1,19 @@
+Package: fetchdhs
+Title: Retrieve DHS API Data
+Version: 0.1.0
+Authors@R: person("Padraic", "Murphy", email = "[email protected]", role = c("aut", "cre"))
+Description: A suite of convenience functions to retrieve survey data from the DHS API.
+Depends: R (>= 3.4.1)
+License: MIT + file LICENCE
+Encoding: UTF-8
+LazyData: true
+RoxygenNote: 6.0.1
+Imports: dplyr,
+    glue,
+    jsonlite,
+    purrr,
+    stringr,
+    snakecase,
+    magrittr,
+    httr,
+    attempt

DESCRIPTION

@@ -0,0 +1,2 @@
+YEAR: 2017
+COPYRIGHT HOLDER: PADRAIC MURPHY

LICENCE

@@ -0,0 +1,12 @@
+# Generated by roxygen2: do not edit by hand
+
+export(fetch_citation)
+export(fetch_countries)
+export(fetch_data)
+export(fetch_indicators)
+export(fetch_surveys)
+export(fetch_tags)
+export(set_api_key)
+export(set_return_fields)
+importFrom(magrittr,"%<>%")
+importFrom(magrittr,"%>%")

NAMESPACE

@@ -0,0 +1,10 @@
+#' Fetch citation
+#'
+#' \code{fetch_citation} returns a DHS API citation.
+#' @importFrom magrittr %>%
+#' @export
+fetch_citation <- function() {
+  jsonlite::fromJSON("https://api.dhsprogram.com/rest/dhs/info/citation") %>%
+    .$Data %>%
+    .$Value
+}

R/.DS_Store

@@ -0,0 +1,12 @@
+#' Fetch country listing
+#'
+#' \code{fetch_countries} returns a dataframe of all countries with available DHS survey data and their associated DHS and ISO codes.
+#' @seealso \code{\link{fetch_data}}
+#' @importFrom magrittr %>%
+#' @export
+fetch_countries <- function() {
+  jsonlite::fromJSON("https://api.dhsprogram.com/rest/dhs/countries?returnFields=CountryName,DHS_CountryCode,iso3_CountryCode") %>%
+    .$Data %>%
+    dplyr::rename_all(snakecase::to_snake_case) %>%
+    dplyr::as_data_frame()
+}