R/converter.R

In uribo/jpops: Provides a Data Set on the Population in Japan

#' Convert e-Stat's record value
#'
#' @description
#' \Sexpr[results=rd, stage=render]{lifecycle::badge("experimental")}
#' @param x variable
#' @param lang Specify the language to convert
#' @export
conv_gender_vars <- function(x, lang = "ja") {
  lang <- rlang::arg_match(lang,
                           c("ja", "en"))
  if (lang == "ja") {
    dplyr::case_when(
      stringr::str_detect(x, intToUtf8(c(32207, 25968))) ~ intToUtf8(c(32207, 25968)),
      stringr::str_detect(x, intToUtf8(30007)) ~ intToUtf8(30007),
      stringr::str_detect(x, intToUtf8(22899)) ~ intToUtf8(22899))
  } else if (lang == "en") {
    dplyr::case_when(
      stringr::str_detect(x, intToUtf8(c(32207, 25968))) ~ "total",
      stringr::str_detect(x, intToUtf8(30007)) ~ "male",
      stringr::str_detect(x, intToUtf8(22899)) ~ "female")
  }
}