Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Script para download de dados do microcenso
#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')
})
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.