R/abrir_base_estado.R

In philsf/censo2010brasil: Dados do Censo Demográfico 2010 do Brasil

#' @title FUNCTION_TITLE
#' @description FUNCTION_DESCRIPTION
#' @param base PARAM_DESCRIPTION
#' @param estado PARAM_DESCRIPTION
#' @param censo_dir PARAM_DESCRIPTION, Default: '~/Downloads/Censo2010/'
#' @return OUTPUT_DESCRIPTION
#' @details DETAILS
#' @examples
#' \dontrun{
#' if(interactive()){
#'  #EXAMPLE1
#'  }
#' }
#' @seealso
#'  \code{\link[readxl]{read_excel}}
#' @rdname abrir_base_estado
#' @export
#' @import readxl
#' @import dplyr
abrir_base_estado <- function(base, estado, censo_dir = "~/Downloads/Censo2010/") {
  arquivo <- file.path(censo_dir, paste0(base, "_", estado, ".xls"))

  b <- readxl::read_excel(arquivo, na = "X")

  b %>%
    # fix Basico: substitui Cod_UF pelo código (numérico)
    # Assume que Cod_meso sempre existe na base em que Cod_UF existe e
    # toma os 2 primeiros dígitos de um número de 4 dígitos
    mutate( across(any_of("Cod_UF"), ~ Cod_meso %/% 100) ) %>%
    # Todos os códigos como char
    mutate( across(starts_with(c("Cod_", "Situacao_setor")), as.character) ) %>%
    # fix Responsavel02_SP2
    mutate(across(starts_with("V"), as.numeric))
}