#140 additional control on metadata standard, OWSServiceProvider uses ISO 19115/19139 model for service metadata

eblondel · eblondel · commit 881720c6aa80 · 2025-06-13T11:58:36.000+02:00
diff --git a/R/OWSServiceProvider.R b/R/OWSServiceProvider.R
@@ -122,6 +122,7 @@ OWSServiceProvider <-  R6Class("OWSServiceProvider",
      #'@param owsVersion OWS version
      #'@param serviceVersion service version
      initialize = function(xmlObj, owsVersion, serviceVersion){
+       geometa::setMetadataStandard("19139")
        serviceProvider <- private$fetchServiceProvider(xmlObj, owsVersion, serviceVersion)
        private$providerName <- serviceProvider$providerName
        private$providerSite <- serviceProvider$providerSite
