cleanup function now only deletes the extracted directory

R/candidatos_nosenado.R

@@ -94,7 +94,7 @@ candidatos_nosenado <- function(tipo, anno, mes) {
   df$nacimiento <- NA
   df$dni <- NA
 
-  cleanup(temp, tempd)
+  cleanup(tempd)
 
   return(df)
 }

R/cleanup.R

@@ -1,13 +1,11 @@
 #' @title Cleans up the files and directories created during the process
 #'
-#' @param files The files to remove.
 #' @param dirs The directories to remove.
 #'
 #' @return NULL
 #'
 #' @keywords internal
 #'
-cleanup <- function(files, dirs) {
-  # file.remove(files)
+cleanup <- function(dirs) {
   unlink(dirs, recursive=TRUE)
 }

R/download_bin.R

@@ -16,13 +16,14 @@ download_bin <- function(url, tempfile) {
     "Gecko/20100101 Firefox/98.0"
   )
 
-  if(file.exists(tempfile)) {
-    message("File already exists, skipping download")
+  if (file.exists(tempfile)) {
+    message(
+      "File already exists, skipping download. Reading existing file ",
+      gsub("..+/", "", tempfile)
+    )
   } else {
     message("Downloading ", url)
     res <- GET(url, add_headers(`User-Agent` = UA, Connection = "keep-alive"))
     writeBin(res$content, tempfile)
   }
-
-
 }

R/mesas.R

@@ -99,7 +99,7 @@ mesas <- function(tipo_eleccion, anno, mes) {
 
   df$municipio[df$codigo_municipio == "999"] <- "CERA"
 
-  cleanup(temp, tempd)
+  cleanup(tempd)
 
   return(df)
 }

R/muni.R

@@ -111,7 +111,7 @@ municipios <- function(tipo_eleccion, anno, mes, distritos = FALSE) {
     df <- unique(df[df$codigo_distrito == 99, ])
   }
 
-  cleanup(temp, tempd)
+  cleanup(tempd)
 
   return(df)
 }

R/provincias.R

@@ -96,7 +96,7 @@ provincias <- function(tipo_eleccion, anno, mes) {
       desc("votos")
     )
 
-  cleanup(temp, tempd)
+  cleanup(tempd)
 
   return(df)
 }

R/senado_mesas.R

@@ -128,7 +128,7 @@ senado_mesas <- function(anno, mes) {
 
   df$nacimiento[df$nacimiento_anno == "0000"] <- NA
 
-  cleanup(temp, tempd)
+  cleanup(tempd)
 
   return(df)
 }

R/senado_municipios.R

@@ -125,7 +125,7 @@ senado_municipios <- function(anno, mes) {
 
   df$nacimiento[df$nacimiento_anno == "0000"] <- NA
 
-  cleanup(temp, tempd)
+  cleanup(tempd)
 
   return(df)
 }