#254 implementation

r-geoflow · Sep 1, 2023 · b834e56 · b834e56
1 parent 49013a6
commit b834e56
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 1 deletion.
diff --git a/R/geoflow_validator.R b/R/geoflow_validator.R
@@ -736,9 +736,9 @@ geoflow_validator_entity_Relation <- R6Class("geoflow_validator_entity_Relation"
       #'@param str string to validate
       initialize = function(i, j, str){
         valid_keys <- list(
-          "ref",
           "ftp", "http", "download",
           "parent","thumbnail",
+          "ref", "grant",
           "csw", "csw202", "csw30",
           "wcs", "wcs100", "wcs11", "wcs110", "wcs111", "wcs201",
           "wfs", "wfs100", "wfs110", "wfs200",

diff --git a/doc/Summary_metadata.csv b/doc/Summary_metadata.csv
@@ -39,6 +39,7 @@ Relation,wms,,,x,,,,,,x,,
 Relation,wfs,,,x,,,,,,x,,
 Relation,wcs,,,x,,,,,,,,
 Relation,ref,x,,,,,,,x,,,
+Relation,grant,,,,,,,,x,,,
 Rights,use,x,x,x,,,,,,,,
 Rights,useLimitation,x,x,x,,,,,,,,
 Rights,useConstraint,,,x,,,,,,x,x,

diff --git a/inst/actions/zen4R_deposit_record.R b/inst/actions/zen4R_deposit_record.R
@@ -249,6 +249,16 @@ function(action, entity, config){
       }
     }
 
+    #grants
+    if(length(entity$relations)){
+      grants = entity$relations[sapply(entity$relations, function(x){tolower(x$key) == "grant"})]
+      if(length(grants)>0){
+        for(grant in grants){
+          zenodo_metadata$addGrant(grant)
+        }
+      }
+    }
+
     #communities
     if(length(communities)>0){
       zenodo_metadata$metadata$communities <- list()