Create make_geojsons.R

#3
inbo · Jun 8, 2020 · 5117d13 · 5117d13
1 parent cb0a640
commit 5117d13
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/R-scripts/make_geojsons.R b/R-scripts/make_geojsons.R
@@ -0,0 +1,18 @@
+library(rgdal)
+library(here)
+
+filelist <- dir(path = here("Data", "Spatial"), pattern = ".shp")
+
+filelist <- gsub(pattern = ".xml", replacement = "", filelist)
+filelist <- gsub(pattern = ".shp", replacement = "", filelist)
+filelist <- unique(filelist)
+
+for(f in filelist){
+  fn <- paste0(f, ".geojson")
+  if(!file.exists(here("Data", "Spatial", fn))){
+    shape <- readOGR(here("Data", "Spatial"),f, stringsAsFactors = FALSE)
+    writeOGR(shape, here("Data", "Spatial", fn), layer=f, driver="GeoJSON",overwrite_layer=T)
+  }
+}
+
+