R/wb_data.R

In thegraphnetwork/r-epigraphhub: An EpiGraphHub package with useful functions and tools for epidemiological data analysis and access to free databases from various organizations

#' Get all currently available datasets and indicators from World Bank database.
#'
#' \code{wb_data} pulls all datasets and the respective indicators currently available from World Bank database. It returns an object consisting of a list of datasets and sublists of indicators. This object can be used to download the data using the \code{get_wb_data} function
#'
#' @section Warning:
#' An internet connection is needed to use this function.
#'
#' @examples \dontrun{
#' library("r-epigraphhub")
#' datasets <- wb_data()
#' my_dataset <- datasets[2]
#' my_dataset
#' }
#' @importFrom dplyr `%>%` as_tibble select filter
#' @import WDI
#' @export

wb_data <- function(){
  # querying all datasets available
  df_WDI <- WDI_data$series %>%
    dplyr::as_tibble()
  # list of datasets
  dataset_names <- df_WDI %>%
    dplyr::select(sourceDatabase) %>%
    unique %>%
    pull
  # creating a list of datasets and their respective indicators
  datasets <- dataset_names %>%
    as.list()
  names(datasets) <- datasets
  # pulling list of datasets and indicators into the list
  for (i in dataset_names){
    datasets[[i]] <- df_WDI %>%
      dplyr::filter(sourceDatabase %in% dataset_names[dataset_names == i]) %>%
      dplyr::select(indicator) %>%
      pull
  }
  datasets
}