R/ler_pof_despesa_todas.R

In pedrorubin/pof2017package: Dados da POF 2017-2018 (IBGE) organizados

#' Carregar microdados da POF - todas as informações de despesa
#'
#' Carregar microdados da POF - todos os registros com dados de despesa
#' Aluguel estimado, caderneta coletiva, despesa coletiva, despesa individual, outros rendimentos e rendimento trabalho
#' OBS: É preciso que o nome dos arquivos .txt esteja igual a como foi baixado!!
#'
#' @param pasta_microdados O caminho para a pasta que contém os arquivos .txt de microdados
#' @return Um dataframe com as informações de despesa
#' @examples ler_pof_despesa_todas("./pasta_microdados");
#' @seealso ler_pof_despesa, baixar_pof
#' @export

ler_pof_despesa_todas <- function(pasta_microdados){

  lista_pof_despesa <- tibble(num_pof = c(as.character(glue("{pasta_microdados}/ALUGUEL_ESTIMADO.txt")),
                                          as.character(glue("{pasta_microdados}/CADERNETA_COLETIVA.txt")),
                                          as.character(glue("{pasta_microdados}/DESPESA_COLETIVA.txt")),
                                          as.character(glue("{pasta_microdados}/DESPESA_INDIVIDUAL.txt")),
                                          as.character(glue("{pasta_microdados}/OUTROS_RENDIMENTOS.txt")),
                                          as.character(glue("{pasta_microdados}/RENDIMENTO_TRABALHO.txt"))))

  pof_desp <- map_dfr(lista_pof_despesa$num_pof,
                      ler_pof_despesa)
}