Adding user agent header in vignettes and examples to resubmit to CRAN

rOpenSpain · May 27, 2024 · d747724 · d747724
1 parent e673370
commit d747724
Show file tree

Hide file tree

Showing 21 changed files with 100 additions and 73 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: infoelectoral
 Type: Package
 Title: Download Spanish Election Results
-Version: 1.0.0
+Version: 1.0.1
 Authors@R: 
     person("Héctor", "Meleiro", 
     email = "[email protected]", 

diff --git a/R/candidatos_nosenado.R b/R/candidatos_nosenado.R
@@ -14,6 +14,8 @@
 #' @importFrom dplyr select
 #' @importFrom dplyr arrange
 #' @importFrom dplyr %>%
+#' @importFrom dplyr full_join
+#' @importFrom dplyr left_join
 #'
 #' @keywords internal
 #'
@@ -22,14 +24,14 @@ candidatos_nosenado <- function(tipo, anno, mes) {
   urlbase <- "https://infoelectoral.interior.gob.es/estaticos/docxl/apliextr/"
   url <- paste0(urlbase, tipo, anno, mes, "_MUNI", ".zip")
   ### Descargo el fichero zip en un directorio temporal y lo descomprimo
-  tempd <- tempdir(check = F)
+  tempd <- tempdir(check = FALSE)
   temp <- tempfile(tmpdir = tempd, fileext = ".zip")
   download.file(url, temp, mode = "wb")
-  unzip(temp, overwrite = T, exdir = tempd)
+  unzip(temp, overwrite = TRUE, exdir = tempd)
 
   ### Construyo las rutas a los ficheros DAT necesarios
   codigo_eleccion <- paste0(substr(anno, nchar(anno)-1, nchar(anno)), mes)
-  todos <- list.files(tempd, recursive = T)
+  todos <- list.files(tempd, recursive = TRUE)
   x <- todos[grepl(paste0("04", tipo, codigo_eleccion, ".DAT"), todos)]
   xbasicos <- todos[grepl(paste0("05", tipo, codigo_eleccion, ".DAT"), todos)]
   xcandidaturas <- todos[grepl(paste0("03", tipo, codigo_eleccion, ".DAT"), todos)]
@@ -44,12 +46,12 @@ candidatos_nosenado <- function(tipo, anno, mes) {
   dfbasicos <- dfbasicos[dfbasicos$codigo_distrito == "99",]
 
   ### Limpio el directorio temporal (IMPORTANTE: Si no lo hace, puede haber problemas al descargar más de una elección)
-  borrar <-  list.files(tempd, full.names = T, recursive = T)
-  try(file.remove(borrar), silent = T)
+  borrar <-  list.files(tempd, full.names = TRUE, recursive = TRUE)
+  try(file.remove(borrar), silent = TRUE)
 
   ### Junto los datos de los tres ficheros
-  df <- merge(dfbasicos, dfcandidatos, by = c("tipo_eleccion", "vuelta", "anno", "mes", "codigo_provincia", "codigo_municipio", "codigo_distrito"), all = T)
-  df <- merge(df, dfcandidaturas, by = c("tipo_eleccion", "anno", "mes", "codigo_partido"), all.x = T)
+  df <- full_join(dfbasicos, dfcandidatos, by = c("tipo_eleccion", "vuelta", "anno", "mes", "codigo_provincia", "codigo_municipio", "codigo_distrito"))
+  df <- left_join(df, dfcandidaturas, by = c("tipo_eleccion", "anno", "mes", "codigo_partido"))
 
   ### Limpieza: Quito los espacios en blanco a los lados de estas variables
   df$siglas <- str_trim(df$siglas)

diff --git a/R/examples/candidatos.R b/R/examples/candidatos.R
@@ -1,5 +1,8 @@
-\dontrun{
-  data <- candidatos(tipo_eleccion = "senado", anno = "2004",
-                     mes = "03", nivel = "municipio")
-  str(data)
-}
+ua <- "Mozilla/5.0 (Linux; Android 10; K) AppleWebKit/537.36 (KHTML, like Gecko)"
+options(HTTPUserAgent = ua)
+
+data <- candidatos(
+  tipo_eleccion = "senado", anno = "2004",
+  mes = "03", nivel = "municipio"
+)
+str(data)
diff --git a/R/examples/mesas.R b/R/examples/mesas.R
@@ -1,4 +1,4 @@
-\dontrun{
+\donttest{
   data <- mesas(tipo_eleccion = "congreso", anno = "2023", mes = "07")
   str(data)
 }
diff --git a/R/examples/municipios.R b/R/examples/municipios.R
@@ -1,4 +1,6 @@
-\dontrun{
-  data <- municipios(tipo_eleccion = "congreso", anno = "2019", mes = "11")
-  str(data)
-}
+ua <- "Mozilla/5.0 (Linux; Android 10; K) AppleWebKit/537.36 (KHTML, like Gecko)"
+options(HTTPUserAgent = ua)
+
+data <- municipios(tipo_eleccion = "congreso", anno = "2019", mes = "11")
+str(data)
+
diff --git a/R/examples/provincias.R b/R/examples/provincias.R
@@ -1,4 +1,5 @@
-\dontrun{
-  data <- provincias(tipo_eleccion = "congreso", anno = "1982", mes = "10")
-  str(data)
-}
+ua <- "Mozilla/5.0 (Linux; Android 10; K) AppleWebKit/537.36 (KHTML, like Gecko)"
+options(HTTPUserAgent = ua)
+
+data <- provincias(tipo_eleccion = "congreso", anno = "1982", mes = "10")
+str(data)
diff --git a/R/mesas.R b/R/mesas.R
@@ -36,14 +36,14 @@ mesas <- function(tipo_eleccion, anno, mes) {
   url <- paste0(urlbase, tipo, anno, mes, "_MESA", ".zip")
 
   ### Descargo el fichero zip en un directorio temporal y lo descomprimo
-  tempd <- tempdir(check = F)
+  tempd <- tempdir(check = FALSE)
   temp <- tempfile(tmpdir = tempd, fileext = ".zip")
   download.file(url, temp, mode = "wb")
-  unzip(temp, overwrite = T, exdir = tempd)
+  unzip(temp, overwrite = TRUE, exdir = tempd)
 
   ### Construyo las rutas a los ficheros DAT necesarios
   codigo_eleccion <- paste0(substr(anno, nchar(anno)-1, nchar(anno)), mes)
-  todos <- list.files(tempd, recursive = T)
+  todos <- list.files(tempd, recursive = TRUE)
   x <- todos[grepl(paste0("10", tipo, codigo_eleccion, ".DAT"), todos)]
   xbasicos <- todos[grepl(paste0("09", tipo, codigo_eleccion, ".DAT"), todos)]
   xcandidaturas <- todos[grepl(paste0("03", tipo, codigo_eleccion, ".DAT"), todos)]
@@ -54,8 +54,8 @@ mesas <- function(tipo_eleccion, anno, mes) {
   dfmesas <- read10(x, tempd)
 
   ### Limpio el directorio temporal (IMPORTANTE: Si no lo hace, puede haber problemas al descargar más de una elección)
-  borrar <-  list.files(tempd, full.names = T, recursive = T)
-  try(file.remove(borrar), silent = T)
+  borrar <-  list.files(tempd, full.names = TRUE, recursive = TRUE)
+  try(file.remove(borrar), silent = TRUE)
 
 
   ### Junto los datos de los tres ficheros

diff --git a/R/muni.R b/R/muni.R
@@ -43,11 +43,11 @@ municipios <- function(tipo_eleccion, anno, mes, distritos = FALSE) {
   temp <- tempfile(tmpdir = tempd, fileext = ".zip")
   download.file(url, temp, mode = "wb")
 
-  unzip(temp, overwrite = T, exdir = tempd)
+  unzip(temp, overwrite = TRUE, exdir = tempd)
 
   ### Construyo las rutas a los ficheros DAT necesarios
   codigo_eleccion <- paste0(substr(anno, nchar(anno)-1, nchar(anno)), mes)
-  todos <- list.files(tempd, recursive = T)
+  todos <- list.files(tempd, recursive = TRUE)
   x <- todos[grepl(paste0("06", tipo, codigo_eleccion, ".DAT"), todos)]
   xbasicos <- todos[grepl(paste0("05", tipo, codigo_eleccion, ".DAT"), todos)]
   xcandidaturas <- todos[grepl(paste0("03", tipo, codigo_eleccion, ".DAT"), todos)]
@@ -73,8 +73,8 @@ municipios <- function(tipo_eleccion, anno, mes, distritos = FALSE) {
   }
 
   ### Limpio el directorio temporal (IMPORTANTE: Si no lo hace, puede haber problemas al descargar más de una elección)
-  borrar <-  list.files(tempd, full.names = T, recursive = T)
-  try(file.remove(borrar), silent = T)
+  borrar <-  list.files(tempd, full.names = TRUE, recursive = TRUE)
+  try(file.remove(borrar), silent = TRUE)
 
   ### Junto los datos de los tres ficheros
   df <- full_join(dfbasicos, dfmunicipios,

diff --git a/R/provincias.R b/R/provincias.R
@@ -40,12 +40,12 @@ provincias <- function(tipo_eleccion, anno, mes) {
   tempd <- tempdir()
   temp <- tempfile(tmpdir = tempd, fileext = ".zip")
   download.file(url, temp, mode = "wb")
-  unzip(temp, overwrite = T, exdir = tempd)
+  unzip(temp, overwrite = TRUE, exdir = tempd)
 
 
   ### Construyo las rutas a los ficheros DAT necesarios
   codigo_eleccion <- paste0(substr(anno, nchar(anno)-1, nchar(anno)), mes)
-  todos <- list.files(tempd, recursive = T)
+  todos <- list.files(tempd, recursive = TRUE)
   x <- todos[todos == paste0("03", tipo, codigo_eleccion, ".DAT")]
   xbasicos <- todos[todos == paste0("07", tipo, codigo_eleccion, ".DAT")]
   xcandidaturas <- todos[todos == paste0("08", tipo, codigo_eleccion, ".DAT")]
@@ -58,8 +58,8 @@ provincias <- function(tipo_eleccion, anno, mes) {
 
 
   ### Limpio el directorio temporal (IMPORTANTE: Si no lo hace, puede haber problemas al descargar más de una elección)
-  borrar <-  list.files(tempd, full.names = T, recursive = T)
-  try(file.remove(borrar), silent = T)
+  borrar <-  list.files(tempd, full.names = TRUE, recursive = TRUE)
+  try(file.remove(borrar), silent = TRUE)
 
   ### Junto los datos de los tres ficheros
   df <- full_join(dfcandidaturas_basicos, dfcandidaturas,

diff --git a/R/senado_mesas.R b/R/senado_mesas.R
@@ -16,6 +16,7 @@
 #' @importFrom dplyr select
 #' @importFrom dplyr arrange
 #' @importFrom dplyr %>%
+#' @importFrom dplyr full_join
 #'
 #' @keywords internal
 senado_mesas <- function(anno, mes) {
@@ -27,14 +28,14 @@ senado_mesas <- function(anno, mes) {
   url <- paste0(urlbase, tipo, anno, mes, "_MESA", ".zip")
 
   ### Descargo el fichero zip en un directorio temporal y lo descomprimo
-  tempd <- tempdir(check = F)
+  tempd <- tempdir(check = FALSE)
   temp <- tempfile(tmpdir = tempd, fileext = ".zip")
   download.file(url, temp, mode = "wb")
-  unzip(temp, overwrite = T, exdir = tempd)
+  unzip(temp, overwrite = TRUE, exdir = tempd)
 
   ### Construyo las rutas a los ficheros DAT necesarios
   codigo_eleccion <- paste0(substr(anno, nchar(anno)-1, nchar(anno)), mes)
-  todos <- list.files(tempd, recursive = T)
+  todos <- list.files(tempd, recursive = TRUE)
   x <- todos[todos == paste0("04", tipo, codigo_eleccion, ".DAT")]
   xmesas <- todos[todos == paste0("10", tipo, codigo_eleccion, ".DAT")]
   xbasicos <- todos[todos == paste0("09", tipo, codigo_eleccion, ".DAT")]
@@ -47,17 +48,17 @@ senado_mesas <- function(anno, mes) {
   dfmesas <- read10(xmesas, tempd)
 
   ### Limpio el directorio temporal (IMPORTANTE: Si no lo hace, puede haber problemas al descargar más de una elección)
-  borrar <-  list.files(tempd, full.names = T, recursive = T)
-  try(file.remove(borrar), silent = T)
+  borrar <-  list.files(tempd, full.names = TRUE, recursive = TRUE)
+  try(file.remove(borrar), silent = TRUE)
 
   ### Junto los datos de los tres ficheros
-  df <- merge(dfbasicos, dfmesas, by = c("tipo_eleccion", "anno", "mes", "vuelta", "codigo_ccaa", "codigo_provincia", "codigo_municipio", "codigo_distrito", "codigo_seccion", "codigo_mesa"), all = T)
-  df <- merge(df, dfcandidatos, by = c("tipo_eleccion", "anno", "mes", "vuelta", "codigo_provincia", "codigo_senador"), all = T)
-  df <- merge(df, dfcandidaturas, by = c("tipo_eleccion", "anno", "mes", "codigo_partido"), all = T)
+  df <- full_join(dfbasicos, dfmesas, by = c("tipo_eleccion", "anno", "mes", "vuelta", "codigo_ccaa", "codigo_provincia", "codigo_municipio", "codigo_distrito", "codigo_seccion", "codigo_mesa"))
+  df <- full_join(df, dfcandidatos, by = c("tipo_eleccion", "anno", "mes", "vuelta", "codigo_provincia", "codigo_senador"))
+  df <- full_join(df, dfcandidaturas, by = c("tipo_eleccion", "anno", "mes", "codigo_partido"))
 
   # Inserto el nombre del municipio más reciente y reordeno algunas variables
   codigos_municipios <- infoelectoral::codigos_municipios
-  df <- merge(df, codigos_municipios, by = c("codigo_provincia", "codigo_municipio"), all = T)
+  df <- full_join(df, codigos_municipios, by = c("codigo_provincia", "codigo_municipio"))
 
   ### Limpieza: Quito los espacios en blanco a los lados de estas variables
   df$siglas <- str_trim(df$siglas)

diff --git a/R/senado_municipios.R b/R/senado_municipios.R
@@ -16,6 +16,7 @@
 #' @importFrom dplyr select
 #' @importFrom dplyr arrange
 #' @importFrom dplyr %>%
+#' @importFrom dplyr full_join
 #'
 #' @keywords internal
 senado_municipios <- function(anno, mes) {
@@ -26,14 +27,14 @@ senado_municipios <- function(anno, mes) {
   url <- paste0(urlbase, tipo, anno, mes, "_MUNI", ".zip")
 
   ### Descargo el fichero zip en un directorio temporal y lo descomprimo
-  tempd <- tempdir(check = F)
+  tempd <- tempdir(check = FALSE)
   temp <- tempfile(tmpdir = tempd, fileext = ".zip")
   download.file(url, temp, mode = "wb")
-  unzip(temp, overwrite = T, exdir = tempd)
+  unzip(temp, overwrite = TRUE, exdir = tempd)
 
   ### Construyo las rutas a los ficheros DAT necesarios
   codigo_eleccion <- paste0(substr(anno, nchar(anno)-1, nchar(anno)), mes)
-  todos <- list.files(tempd, recursive = T)
+  todos <- list.files(tempd, recursive = TRUE)
   x <- todos[todos == paste0("04", tipo, codigo_eleccion, ".DAT")]
   xmunicipios <- todos[todos == paste0("06", tipo, codigo_eleccion, ".DAT")]
   xbasicos <- todos[todos == paste0("05", tipo, codigo_eleccion, ".DAT")]
@@ -50,20 +51,20 @@ senado_municipios <- function(anno, mes) {
 
 
   ### Limpio el directorio temporal (IMPORTANTE: Si no lo hace, puede haber problemas al descargar más de una elección)
-  borrar <-  list.files(tempd, full.names = T, recursive = T)
-  try(file.remove(borrar), silent = T)
+  borrar <-  list.files(tempd, full.names = TRUE, recursive = TRUE)
+  try(file.remove(borrar), silent = TRUE)
 
   ### Junto los datos de los tres ficheros
-  df <- merge(dfbasicos, dfmunicipios, by = c("tipo_eleccion", "anno", "mes", "vuelta", "codigo_provincia", "codigo_municipio", "codigo_distrito"), all = T)
-  df <- merge(df, dfcandidatos, by = c("tipo_eleccion", "anno", "mes", "vuelta", "codigo_provincia", "codigo_distrito_electoral", "codigo_senador"), all = T)
-  df <- merge(df, dfcandidaturas, by = c("tipo_eleccion", "anno", "mes", "codigo_partido"), all = T)
+  df <- full_join(dfbasicos, dfmunicipios, by = c("tipo_eleccion", "anno", "mes", "vuelta", "codigo_provincia", "codigo_municipio", "codigo_distrito"))
+  df <- full_join(df, dfcandidatos, by = c("tipo_eleccion", "anno", "mes", "vuelta", "codigo_provincia", "codigo_distrito_electoral", "codigo_senador"))
+  df <- full_join(df, dfcandidaturas, by = c("tipo_eleccion", "anno", "mes", "codigo_partido"))
 
   ### Limpieza: Quito los espacios en blanco a los lados de estas variables
   df$siglas <- str_trim(df$siglas)
   df$denominacion <- str_trim(df$denominacion)
 
   codigos_municipios <- infoelectoral::codigos_municipios
-  df <- merge(df, codigos_municipios, by = c("codigo_provincia", "codigo_municipio"), all = T) %>%
+  df <- full_join(df, codigos_municipios, by = c("codigo_provincia", "codigo_municipio")) %>%
     mutate_if(is.character, str_trim) %>%
     mutate(denominacion = str_remove_all("denominacion", '"')) %>%
     select(

diff --git a/man/candidatos.Rd b/man/candidatos.Rd
diff --git a/man/mesas.Rd b/man/mesas.Rd
diff --git a/man/municipios.Rd b/man/municipios.Rd
diff --git a/man/provincias.Rd b/man/provincias.Rd
diff --git a/tests/testthat/test-candidatos.R b/tests/testthat/test-candidatos.R
@@ -1,4 +1,5 @@
 library(dplyr)
+options(HTTPUserAgent="Mozilla/5.0 (Linux; Android 10; K) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36")
 
 set.seed(120)
 x <- fechas_elecciones %>%
@@ -9,7 +10,6 @@ x <- fechas_elecciones %>%
 data <- candidatos("senado", x$anno, x$mes, nivel = "municipio") %>%
   filter(codigo_provincia != "99")
 
-
 test_that("n_provincias function", {
   n_provincias <- unique(data$codigo_provincia) %>% length()
   expect_equal(n_provincias, 52)

diff --git a/tests/testthat/test-mesas.R b/tests/testthat/test-mesas.R
@@ -1,4 +1,6 @@
 library(dplyr)
+# options(timeout = 120)
+options(HTTPUserAgent="Mozilla/5.0 (Linux; Android 10; K) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36")
 
 set.seed(120)
 x <- fechas_elecciones %>%

diff --git a/tests/testthat/test-municipios.R b/tests/testthat/test-municipios.R
@@ -1,4 +1,5 @@
 library(dplyr)
+options(HTTPUserAgent="Mozilla/5.0 (Linux; Android 10; K) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36")
 
 set.seed(120)
 x <- fechas_elecciones %>%

diff --git a/tests/testthat/test-provincias.R b/tests/testthat/test-provincias.R
@@ -1,4 +1,5 @@
 library(dplyr)
+options(HTTPUserAgent="Mozilla/5.0 (Linux; Android 10; K) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36")
 
 set.seed(120)
 x <- fechas_elecciones %>%