R/contraceptive_use_import.R

In FPRgroup/fpemmodeling: fpemmodeling

#' contraceptive_use_import
#'
#' @inheritParams do_1country_run
contraceptive_use_import <- function(is_in_union, surveydata_filepath, division_numeric_code, subnational) {
  if (!is.null(surveydata_filepath)) {
    contraceptive_use <- readr::read_csv(surveydata_filepath)  
    fpemdata:::validate_this(fpemdata::contraceptive_use_format, contraceptive_use)
    contraceptive_use <- contraceptive_use %>% 
      dplyr::filter(is_in_union == !!is_in_union) %>% 
      dplyr::filter(age_range == "15-49")  %>%
      dplyr::filter(division_numeric_code == !!division_numeric_code) %>%
      fpemdata:::impute_user_se(subnational = subnational, is_in_union = is_in_union) %>%
      dplyr::mutate(ref_date = floor((start_date + end_date) / 2))

  } else {
    contraceptive_use <- fpemdata::imputed_data$contraceptive_use_imputed  %>%
      dplyr::filter(is_in_union == !!is_in_union) %>% 
      dplyr::filter(age_range == "15-49")  %>%
      dplyr::filter(division_numeric_code == !!division_numeric_code) %>%
      dplyr::mutate(ref_date = floor((start_date + end_date) / 2))
  }
  return(contraceptive_use)
}