R/subset_and_indicatornames.R

In FPRgroup/fpemreporting: fpemreporting

#' Indicator colnames
#'
#' @return a list of indicator name vectors, these vectors contain the names of indicators in datasets which are looped through in plots
indicator_names_global <- function() {
  indicator = c(
    "unmet_need_any",
    "contraceptive_use_modern",
    "contraceptive_use_traditional",
    "contraceptive_use_all"
  )
  indicator_results <- c(
    "unmet_need_any",
    "contraceptive_use_modern",
    "traditional_cpr_proportions",
    "total_cpr_proportions"
  )
  indicator_biased = c(
    "est_unmet_need_any",
    "est_contraceptive_use_modern",
    "est_contraceptive_use_traditional",
    "est_contraceptive_use_all"
  )
  indicator_low = c(
    "low_unmet_need_any",
    "low_contraceptive_use_modern",
    "low_contraceptive_use_traditional",
    "low_contraceptive_use_all"
  )
  indicator_up = c(
    "up_unmet_need_any",
    "up_contraceptive_use_modern",
    "up_contraceptive_use_traditional",
    "up_contraceptive_use_all"
  )
  return(list(indicator = indicator,
              indicator_results = indicator_results,
              indicator_biased = indicator_biased,
              indicator_low = indicator_low,
              indicator_up = indicator_up))
}


#' Indicator colnames
#'
#' @return a list of indicator name vectors, these vectors contain the names of indicators in datasets which are looped through in plots
indicator_names <- function() {
  indicator = c(
    "unmet_need_any",
    "contraceptive_use_modern",
    "contraceptive_use_traditional",
    "contraceptive_use_any"
)
  return(indicator)
}


#' Subset of codes with no data
#' @export
#'
#' @return vector of codes of countries with no data
code_subset_nodata <- function() {
  .Deprecated("subset_nodata", package="fpemdata",
              old = "fpemreporting::code_subset_nodata")
  temp <- fpemdata::get_contraceptive_use() %>%
    filter(is_in_union == is_in_union) %>%
    filter(age_range == "15-49")
  temp$ones <- 1
  temp <- temp %>%
    group_by(division_numeric_code) %>%
    mutate(sum = sum(ones)) %>%
    filter(sum == 1)
  select_codes <- temp$division_numeric_code
  return(select_codes)
}

#' Subset of fp2020 codes
#'
#' @return vector of fp2020 codes
#' @export
code_subset_fp2020 <- function() {
  .Deprecated("subset_fp2020", package="fpemdata",
              old = "fpemreporting::code_subset_fp2020")
  divisions <- fpemdata:::get_divisions() %>%
    filter(is_country == "Y") %>%
    dplyr::left_join(
      y = fpemdata:::get_division_classifications(),
      by = 'division_numeric_code') %>%
    filter(is_fp2020 == "Y")
  select_codes <- divisions$division_numeric_code
  return(select_codes)
}