R/leitura.R

In tomasbarcellos/pnad:

#' Title
#'
#' @param ano Ano
#' @param trimestre Trimestre
#'
#' @return Uma tibble
#' @export
#'
#' @examples
#' \dontrun{res <- ler_pnad(2018, 3)}
ler_pnad <- function(ano, trimestre) {
  arqs <- dir("dados/", all.files = TRUE, full.names = TRUE, recursive = TRUE)
  path <- arqs %>%
    stringr::str_subset(glue::glue("_0{trimestre}{ano}")) %>%
    stringr::str_subset(glue::glue("\\.txt$"))

  vars <- c("Ano", "Trimestre", "UF", "UPA", "V1008", "V1014",
            "V1016", "V1022", "V1027", "V1028", "V1029",
            "V2007", "V2010", "V2009", "V3004", "VD4009","VD4010",
            "V4010", "V4012", "V4013", "VD4017", "V4019", "V403312",
            "V4039", "V4041", "V4043", "V4044", "V4047",
            "V4048", "V405112", "V4056"
  )

  input <- system.file("extdata", "input_PNADC_trimestral.txt",
                       package = "pnadc")

  PNADcIBGE::read_pnadc(path, input, vars) %>%
      dplyr::rename(
        ano = Ano, trimestre = Trimestre, uf = UF, estrato = Estrato, upa = UPA,
        num_domicilio = V1008, grupo_amostra = V1014, num_entrevista = V1016,
        situacao_domicilio = V1022, peso = V1027,
        peso_posestrat = V1028, proj_pop = V1029,
        sexo = V2007, cor = V2010, idade = V2009, instrucao = V3004,
        profissao_principal = V4010, profissao_secundario = V4041,
        jornada_principal = V4039, jornada_secundario = V4056,
        rendimento = V403312,
        rendimento_primario = VD4017, cnpj = V4019, rendimento_secundario = V405112,
        grupo_setor_principal = VD4010, setor_principal = V4013,
        setor_secundario = V4044,
        tipo_vinculo = V4012,
        vinculo_primario = VD4009, vinculo_secundario = V4043,
        funcionario_secundario = V4047, carteira_secundario = V4048
      ) %>%
      dplyr::mutate_at(dplyr::vars(ano:estrato), as.integer)
}

#' Ler dados da PNADc Anual
#'
#' @param ano Ano da pesquisa
#'
#' @return O Data frame com os microdados
#' @export
#'
#' @examples
#' ler_pnad_anual(2022)
ler_pnad_anual <- function(ano) {
  PNADcIBGE::get_pnadc(year = ano, interview = 1,
                       design = FALSE)
}