Creates cleanup function to solve the detritus issue noted by CRAN

DESCRIPTION

@@ -17,11 +17,11 @@ LazyData: true
 Imports: dplyr (>= 1.0.0), stringr (>= 1.0.0), httr (>= 1.0.0)
 Suggests: 
     ggplot2,
-    mapSpain,
+    mapSpain (>= 0.9.0),
     patchwork,
     purrr,
     tidyr,
-    preferably,
+    preferably (>= 0.4.1),
     knitr,
     testthat (>= 3.0.0)
 RoxygenNote: 7.2.3

R/candidatos_nosenado.R

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

R/cleanup.R

@@ -0,0 +1,13 @@
+#' @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)
+  unlink(dirs, recursive=TRUE)
+}

R/mesas.R

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

R/muni.R

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

R/provincias.R

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

R/senado_mesas.R

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

R/senado_municipios.R

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