Merge pull request #137 from wri/dev

export GBIF data by city to data hub #136
wri · Mar 8, 2022 · 1c1acf8 · 1c1acf8
2 parents 80269a9 + 7281a29
commit 1c1acf8
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/baseline-indicators/biodiversity/scripts/extract-gbif-by-city.R b/baseline-indicators/biodiversity/scripts/extract-gbif-by-city.R
@@ -168,3 +168,22 @@ leaflet(data = city_boundary, height = 500, width = "100%") %>%
     overlayGroups = c("Birds observations","Birds clusters"),
     options = layersControlOptions(collapsed = FALSE)
   ) 
+
+#########################
+# convert to geojson format
+#########################
+
+city_name = "BRA-Florianopolois"
+city_gbif = read.csv(paste("./data/biodiversity/data/gbif/GBIF-",city_name,".csv", sep = ""))
+
+# convert country gbif data to sf objects
+city_gbif_sf = st_as_sf(city_gbif, 
+                        coords = c("lat", "long"),
+                        crs = st_crs(4326))
+
+# export geojson
+st_write(city_gbif_sf, 
+         paste("./data/biodiversity/data/gbif/GBIF-",city_name,".geojson", sep = ""),
+         append=FALSE)
+
+