R/fix_psnu_mapping.R

In tessam30/getrdone: What the Package Does (One Line, Title Case)

#' Fix PSNU Mapping to SNU1
#' @description Prior to FY22, three PSNUs were mapped to different SNU1s.
#' This function remaps these psnus to the correct snu1 and alters the uids.
#' @param .data msd dataframe with full psnu and snu1 names intact
#'
#' @return
#' @export
#'
#' @examples
fix_psnu_mapping <- function(.data){
  .data |>
    dplyr::mutate(snu1 = dplyr::case_when(
      psnu == "Itezhi-tezhi District" & fiscal_year < 2022 ~ "Central Province",
      psnu == "Chama District" & fiscal_year < 2022 ~ "Muchinga Province",
      psnu == "Chirundu District" & fiscal_year < 2022 ~ "Lusaka Province",
      TRUE ~ snu1
    ),
    snu1uid = dplyr::case_when(
      psnu == "Itezhi-tezhi District" & fiscal_year < 2022 ~ "glHv5VLHKi0",
      psnu == "Chama District" & fiscal_year < 2022 ~ "QPIMzDJei82",
      psnu == "Chirundu District" & fiscal_year < 2022 ~ "fKHv5qcp1nN",
      TRUE ~ snu1uid)
    )
}