From 9b0885582e504a4ce1b29cdbeac29ba872618670 Mon Sep 17 00:00:00 2001 From: eblondel Date: Tue, 11 Jun 2024 22:38:55 +0200 Subject: [PATCH] improve check for ogc relations in ISO 19115 --- inst/actions/geometa_create_iso_19115.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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()