create function to manually add resource to package

Author: wlangera

source/R/add_manual_resource.R

@@ -0,0 +1,23 @@
+add_manual_resource <- function(package, new_resource, replace = TRUE) {
+  if (replace) {
+    # Filter out any resource with same name or path
+    package$resources <- Filter(function(res) {
+      !(res$name == new_resource$name && res$path == new_resource$path)
+    }, package$resources)
+  } else {
+    # If not overwriting, check for duplicates and warn
+    conflict <- any(vapply(package$resources, function(res) {
+      res$name == new_resource$name && res$path == new_resource$path
+    }, logical(1)))
+
+    if (conflict) {
+      warning(paste("Resource with same name and path already exists and",
+                    "`replace = FALSE`. Skipping."))
+      return(package)
+    }
+  }
+
+  # Append new resource
+  package$resources <- append(package$resources, list(new_resource))
+  return(package)
+}

source/add_spatial_resources.Rmd

@@ -22,6 +22,9 @@ library(tidyverse)     # Data wrangling and visualisation
 library(frictionless)  # Create frictionless data package
 library(sf)            # Spatial objects
 
+# Source functions
+source(here::here("source", "R", "add_manual_resource.R"))
+
 # Data path and create directory if necessary
 data_path <- here::here("data", "raw")
 dir.create(data_path, showWarnings = FALSE, recursive = TRUE)
@@ -89,38 +92,36 @@ Write to data package and add metadata.
 ```{r}
 st_write(mgrs10_refgrid_belgium,
          file.path(package_path, "mgrs10_refgrid_belgium.geojson"),
-         append = FALSE)
+         delete_dsn = TRUE)
 ```
 
 ```{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)
-}
+# Read package
+b3data_package <- read_package(file.path(package_path, "datapackage.json"))
+
+# Add resource to data package
+mgrs10_resource <- 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"
+    )
+  )
+
+b3data_package <- add_manual_resource(
+  b3data_package, mgrs10_resource, replace = TRUE)
+
+# Write package to directory
+write_package(
+  package = b3data_package,
+  directory = package_path,
+  compress = TRUE)
 ```
 
 ## EEA 100 km reference grid Europe