Descargar a CSV los datos de elecciones 2021 (Perú) de ronderos.pe

descargar_datos.R

library(tidyverse)

base_url <- "https://ronderos.pe/datasette/elecciones_peru_2021/presidencial.csv?_size=1000&_next={next_val}"

spec <- cols(
  .default = col_integer(),
  mesa = col_character(),
  v2_OBSERVACION = col_character(),
  v2_OBSERVACION_TXT = col_character(),
  v1_OBSERVACION = col_character(),
  v1_OBSERVACION_TXT = col_character(),
  v2_CCODI_UBIGEO = col_character(),
  v2_DEPARTAMENTO = col_character(),
  v2_PROVINCIA = col_character(),
  v2_DISTRITO = col_character(),
  v2_TDIRE_LOCAL = col_character(),
  v2_TNOMB_LOCAL = col_character(),
  v2_CCOPIA_ACTA = col_character(),
  v2_CCENT_COMPU = col_character(),
  v1_CCODI_UBIGEO = col_character(),
  v1_DEPARTAMENTO = col_character(),
  v1_PROVINCIA = col_character(),
  v1_DISTRITO = col_character(),
  v1_TDIRE_LOCAL = col_character(),
  v1_TNOMB_LOCAL = col_character(),
  v1_CCOPIA_ACTA = col_character(),
  v1_CCENT_COMPU = col_character()
)

actas <- tibble()
for (i in 0:89) {
  next_val = i * 1000
  csv <- glue::glue(base_url)
  tmp <- read_csv(csv, col_types = spec)
  actas <- bind_rows(actas, tmp)
}

write_csv(
  actas,
  file = "actas_ronderos.csv.gz"
)