R/baixar_pof.R

In pedrorubin/pof2008package: POF 2008 (IBGE, Brazil) Data Organized

#' Download and unzip POF microdata
#'
#' Download and unzip POF microdata
#' @param destination_path The folder in which the microdata files are to be stored (if folder does not exist, it will be created)
#' @return The microdata files in the designated path
#' @examples baixar_pof("./microdata");
#' @export

baixar_pof <- function(destination_path){

  url <- "https://ftp.ibge.gov.br/Orcamentos_Familiares/Pesquisa_de_Orcamentos_Familiares_2008_2009/Microdados/Dados_20210930.zip"

  tempFile <- tempfile()

  download.file(url,tempFile,quiet=TRUE,mode="wb",cacheOK = F)

  unzip(file.path(tempFile), exdir = destination_path)

}