app-mpt/scripts/join.R

#!/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 = ";")