dados.r

# Library -----------------------------------------------------------------

library(cepespR)
library(tidyverse)

#-- 1998 a 2018
years <- c(1998, 2002, 2006, 2010, 2014, 2018)

d <- map_df(years, function(x) {
get_votes(year=x, position="President") %>% 
  select(ANO_ELEICAO, NUM_TURNO,
         NUMERO_CANDIDATO,
         COD_MUN_IBGE, QTDE_VOTOS) %>%
  set_names("year", "turno", "numero_cand",
            "ibge7", "votos") 
})