add geojson

Author: wlangera

data/b3data_package/datapackage.json

@@ -12,7 +12,7 @@
       "title": "Occurrence cube for birds in Belgium (MGRS 10 km)",
       "description": "Occurrence cube for birds in Belgium between 2000 en 2024. The taxonomical resolution is 'species' and the temporal resolution is 'year' Spatial aggregation is done using the MGRS grid at 10 km scale. Only grid cells that fall within the 10 km MGRS reference grid for mainland Belgium (see b3data: `mgrs10_refgrid_belgium.geojson`) are included.",
       "sources": ["GBIF Occurrence Download", "https://doi.org/10.15468/dl.y3wpwk"],
-      "licenses": [" CC BY-NC 4.0", "https://creativecommons.org/licenses/by-nc/4.0/", "Creative Commons Attribution-NonCommercial 4.0 International"],
+      "licenses": ["CC BY-NC 4.0", "https://creativecommons.org/licenses/by-nc/4.0/", "Creative Commons Attribution-NonCommercial 4.0 International"],
       "schema": {
         "fields": [
           {
@@ -49,12 +49,21 @@
           }
         ]
       }
+    },
+    {
+      "name": "mgrs10_refgrid_belgium",
+      "path": "mgrs10_refgrid_belgium.geojson",
+      "profile": "spatial-data-resource",
+      "format": "geojson",
+      "title": "MGRS 10 Km reference grid Belgium",
+      "description": "MGRS 10 Km reference grid for the mainland of Belgium.",
+      "licenses": ["CC0 1.0", "https://creativecommons.org/publicdomain/zero/1.0/", "Creative Commons Zero v1.0 Universal"]
     }
   ],
   "title": "b3data: Data resources for the b3verse",
   "description": "This data package contains data resources to be used across the b3verse (https://docs.b-cubed.eu/guides/b3verse/). This includes example datasets (occurrence cubes) as well as spatial resources like reference grids or raster data.",
   "keywords1": "data cubes",
-  "licenses.name": " CC BY-NC 4.0",
+  "licenses.name": "CC BY-NC 4.0",
   "version": "0.1.0",
   "sources.title": "b3data-scripts",
   "contributors.title": "Ward Langeraert",

source/add_spatial_resources.Rmd

@@ -26,8 +26,8 @@ library(sf)            # Spatial objects
 data_path <- here::here("data", "raw")
 dir.create(data_path, showWarnings = FALSE, recursive = TRUE)
 
-out_path <- here::here("data", "processed")
-dir.create(out_path, showWarnings = FALSE, recursive = TRUE)
+package_path <- here::here("data", "b3data_package")
+dir.create(package_path, showWarnings = FALSE, recursive = TRUE)
 ```
 
 # Goal
@@ -84,9 +84,45 @@ mgrs10_refgrid_belgium <- utm10_bel %>%
   select(mgrscode, geometry)
 ```
 
+Write to data package and add metadata.
+
+```{r}
+st_write(mgrs10_refgrid_belgium,
+         file.path(package_path, "mgrs10_refgrid_belgium.geojson"),
+         append = FALSE)
+```
+
+```{r}
+if (FALSE) {
+  # Read package
+  b3data_package <- read_package(file.path(package_path, "datapackage.json"))
+  
+  # Add spatial resources manually
+  b3data_package$resources <- append(b3data_package$resources, list(
+    list(
+      name = "mgrs10_refgrid_belgium",
+      path = "mgrs10_refgrid_belgium.geojson",
+      profile = "spatial-data-resource",
+      format = "geojson",
+      title = "MGRS 10 Km reference grid Belgium",
+      description = "MGRS 10 Km reference grid for the mainland of Belgium.",
+      licenses = c(
+        name = "CC0 1.0",
+        path = "https://creativecommons.org/publicdomain/zero/1.0/",
+        title = "Creative Commons Zero v1.0 Universal"
+        )
+      )
+    ))
+  
+  # Write package to directory
+  # Write package to directory
+  write_package(
+    package = b3data_package,
+    directory = package_path,
+    compress = TRUE)
+}
+```
 
 ## EEA 100 km reference grid Europe
 
 > Coming soon
-
-# Write package