add logic to skip if overwrite == FALSE and file exists

#101
inbo · Jan 7, 2025 · 5bd63ac · 5bd63ac
1 parent 6e2c37c
commit 5bd63ac
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/shape_to_geojson.R b/R/shape_to_geojson.R
@@ -106,6 +106,11 @@ shape_to_geojson <- function(input,
       q_overwrite <- overwrite
     }
 
+    if(q_overwrite == FALSE & file.exists(here::here(output, output_fn))){
+      cat(paste0(f, " already exists >> skipping"))
+      next()
+    }
+
     shape <- sf::st_read(here::here(input, paste0(f, ".shp")))
 
     ## Check if the shape has a crs ####