diff --git a/inst/actions/geometa_create_iso_19115.R b/inst/actions/geometa_create_iso_19115.R index d39207d..001baea 100644 --- 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()