R/read_estat_meshpop.R

In uribo/easyestat: What the Package Does (One Line, Title Case)

#' Read e-Stat mesh population census data
#' @param file Path to downloaded e-Stat text file,
#' such as `tblT000847H{meshcode}.txt`
#' @param is_long If *TRUE*, make the population category a single variable
#' and make the values of the counterpart population independent.
#' @param mesh_size Currently, only 0.5 (500m mesh)
#' @export
read_estat_meshpop <- function(file, is_long = FALSE, mesh_size = 0.5) {
  d <-
    utils::read.csv(file, fileEncoding = "cp932", stringsAsFactors = FALSE)
  col_vars <-
    d[1, ] %>%
    purrr::modify(
      ~ stringr::str_trim(.x, side = "left") %>%
        stringr::str_replace("[[:space:]]", "_") %>%
        stringi::stri_trans_nfkc() %>%
        stringr::str_replace("~", "-"))
  d <-
    d %>%
    tibble::as_tibble() %>%
    dplyr::slice(-1) %>%
    purrr::set_names(c(names(col_vars[seq.int(4)]),
                       purrr::flatten_chr(col_vars[seq.int(5, length(col_vars))]))) %>%
    dplyr::mutate(dplyr::across(.cols = tidyselect::everything(),
                                .fns = ~ dplyr::na_if(., "*"))) %>%
    dplyr::mutate(dplyr::across(.cols = tidyselect::everything(),
                                .fns = ~ dplyr::na_if(., ""))) %>%
    dplyr::mutate(dplyr::across(.cols =  seq.int(4),
                                .funs = as.character))
  if (is_long == TRUE) {
    d <-
      d %>%
      tidyr::pivot_longer(cols = seq.int(5, ncol(d)),
                          names_to = "variable",
                          values_to = "population")
  }
  d
}