fix(import_shape_map): remove unlink command

Ref: #194
epiverse-trace · Aug 2, 2024 · 12af287 · 12af287
1 parent 29e4f4d
commit 12af287
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/R/import_data.R b/R/import_data.R
@@ -468,7 +468,6 @@ import_shape_map <- function(ruta_dir = NULL,
     stop("No es posible obtener el Shapefile del mapa")
   }
   if (!cache) {
-    unlink(file.path(ruta_dir, carpeta_base), recursive = TRUE)
     file.remove(file.path(ruta_dir, ruta_zip))
   }
   return(shp)