R/get_poverty_lines.R

In Lissette401/Procesamiento-base-usuaria-EPH: Argentina's Permanent Household Survey Data and Manipulation Utilities

#'Descarga de canasta basica alimentaria y canasta basica total
#'@description
#'Funcion que descarga la CBA y CBT a partir de abril 2016
#'@param regional booleano, default = FALSE. Si es TRUE, descarga los datos de canastas regionales
#'       que se utilizan para el calculo de pobreza. Si es FALSE, descarga la serie de GBA
#'       provista por indec en https://www.indec.gob.ar/indec/web/Nivel4-Tema-4-43-149
#'@details
#'Disclaimer: El script no es un producto oficial de INDEC.
#'
#'@examples
#'
#'canasta <- get_poverty_lines(regional = TRUE)
#'
#'@export

get_poverty_lines <- function(regional = FALSE){

  if (regional){
    temp = tempfile()
    link <- 'https://github.com/holatam/data/raw/master/eph/canasta/canastas.rds'
    utils::download.file(link,destfile=temp, mode='wb')

    canasta <- readRDS(temp)
    unlink(temp)

  }
  else{temp = tempfile(fileext = ".xls")
  dataURL <- "https://www.indec.gob.ar/ftp/cuadros/sociedad/serie_cba_cbt.xls"
  utils::download.file(dataURL, destfile=temp, mode='wb')

  suppressWarnings({canasta <- readxl::read_excel(temp, sheet =1, skip = 6,col_names = c('periodo', 'CBA', 'ICE', 'CBT'),
                                                  col_types = c('date','numeric','numeric','numeric')) %>% stats::na.omit()})
  unlink(temp)}

  canasta

}