1234567891011121314 |
- #!/usr/bin/env Rscript
- library(tidyverse)
- est2012 <- read_csv2("../app/data/estimativa_municipio_2012.csv")
- est2013 <- read_csv2("../app/data/estimativa_municipio_2013.csv")
- est2014 <- read_csv2("../app/data/estimativa_municipio_2014.csv")
- est2015 <- read_csv2("../app/data/estimativa_municipio_2015.csv")
- est2016 <- read_csv2("../app/data/estimativa_municipio_2016.csv")
- est2017 <- read_csv2("../app/data/estimativa_municipio_2017.csv")
- estimativas <- do.call(rbind, list(est2012, est2013, est2014, est2015, est2016, est2017))
- write_delim(estimativas, "../app/data/estimativas.csv", delim = ";")
|