Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Script para download de dados do microcenso
#Extração dos arquivos do censo escolar
#Informe ano inicial e ano final. Os limites são 1995 e 2018
ano_ini<- 1995
map(ano_ini:ano_fim, function(ano){
if (ano<= 2003){
path<- paste0("",ano,".zip")
} else if (ano %in% 2004:2005) {
path<- paste0("",ano,".zip")
} else if (ano == 2006) {
path<- paste0("")
} else{
path<- paste0("",ano,".zip")
download.file(path,destfile = paste0(ano,''), 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.