Merge branch 'master' of github.com:r-geoflow/geoflow

r-geoflow · Mar 30, 2023 · 6068fa7 · 6068fa7
2 parents fc17750 + a4bb59c
commit 6068fa7
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/inst/metadata/entity/entity_handler_dataverse.R b/inst/metadata/entity/entity_handler_dataverse.R
@@ -117,8 +117,13 @@ handle_entities_dataverse <- function(config, source, handle = TRUE){
 
       #license / terms of use
       rights <- geoflow::geoflow_right$new()
-      if(ds$termsOfUse == "license") if(ds$license != "NONE"){
-        rights$setKey("useConstraint", ds$termsOfUse)
+      if(!is.null(ds$termsOfUse)) if(ds$termsOfUse == "license") {
+        rights$setKey("useConstraint")
+        rights$setValues(ds$termsOfUse)
+        if(!is.null(ds$license)) if(ds$license != "NONE") {
+          rights$setKey("license")
+          rights$setValues(ds$license)  
+        }
       }
 
     }
@@ -158,4 +163,4 @@ handle_entities_dataverse <- function(config, source, handle = TRUE){
 
 
   return(entities)
-}
+}