Script para download de dados do microcenso

gistfile1.txt

#Extração dos arquivos do censo escolar

library(purrr)

#Downloads
#Informe ano inicial e ano final. Os limites são 1995 e 2018
ano_ini<- 1995
ano_fim<-2018

map(ano_ini:ano_fim, function(ano){
  
  if (ano<= 2003){
    path<- paste0("http://download.inep.gov.br/microdados/micro_censo_escolar",ano,".zip")

  } else if (ano %in% 2004:2005) {
    path<- paste0("http://download.inep.gov.br/microdados/microdados_censo_escolar_",ano,".zip")
    
  } else if (ano == 2006) {
    path<- paste0("http://download.inep.gov.br/microdados/microdados_censo_escolar_2006_2.zip")
    
        
  } else{
    path<- paste0("http://download.inep.gov.br/microdados/micro_censo_escolar_",ano,".zip")
  }
  
  download.file(path,destfile = paste0(ano,'_micro_censo_escolar.zip'), mode='wb')
  
  
})