improve check for ogc relations in ISO 19115

r-geoflow · Jun 11, 2024 · 9b08855 · 9b08855
1 parent 02f4dba
commit 9b08855
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/actions/geometa_create_iso_19115.R b/inst/actions/geometa_create_iso_19115.R
@@ -801,7 +801,7 @@ function(action, entity, config){
   #add online resource for each relation
   if(length(entity$relations)>0){
     http_relations <- entity$relations[sapply(entity$relations, function(x){
-      x$key %in% c("ftp","http", "download", "wfs", "wms", "wms110", "wms111", "wms130", "wcs", "csw")
+      x$key %in% c("ftp","http", "download") | any(startsWith(x$key, c("wfs", "wms", "wcs", "csw")))
     })]
     for(http_relation in http_relations){
       or <- ISOOnlineResource$new()