data-raw/populacao_estimativa_load.R

In tbrugz/ribge: Loads data from IBGE

library(readr)
library(tidyr)

# loads censo-2010-munic-habitantes.csv and writes censo-2010-munic-habitantes.RData

loc<-locale(encoding = "ISO-8859-1")
df<-read_csv("data-raw/censo-2010-munic-habitantes.csv", col_names = c("munic", "populacao"), locale = loc)
df2<-separate(df, munic, c("codigo_munic_full", "nome_munic", "uf"), sep=" - ")

habitantes2010 <- separate(df2, codigo_munic_full, c("codigo_uf", "codigo_munic"), sep=c(2))
habitantes2010 <- habitantes2010[,c(4,1,2,3,5)]
habitantes2010$codigo_uf <- as.integer(habitantes2010$codigo_uf)
# order by codigo_munic or nome_munic?
#save(habitantes2010, file = "data/censo-2010-munic-habitantes.RData")
usethis::use_data(habitantes2010, overwrite = TRUE)