Automatización de la bajada de datos, etc.

[cjgb]

Puedes bajar los datos automáticamente haciendo algo así como:

foo <- function(year){
  url <- gsub("XXXX", year, "ftp://www.ine.es/temas/varires/datos_XXXX.zip")
  
  download.file(url, destfile = "/tmp/tmp.zip")
  
  print(url)
   
  read_fwf("/tmp/tmp.zip",
           fwf_widths(c(1,2,3,3,2,4,3,2,3,2,4,2,3,1,1,1),
                      c("sexo", "provnac", "muninac", "edad", "mesnac", "anonac", "cnan", "provalta", "munialta", "mesvar", "anovar", "provbaja", "munibaja", "tamualta", "tamubaja", "tamunaci")))

}

tmp <- lapply(1988:1990, foo)

res <- do.call(rbind, tmp)