missing capabilities in OWS Http requests

eblondel · Jul 9, 2021 · b1302a1 · b1302a1
1 parent 5d18338
commit b1302a1
Show file tree

Hide file tree

Showing 8 changed files with 8 additions and 8 deletions.
diff --git a/R/CSWDescribeRecord.R b/R/CSWDescribeRecord.R
@@ -42,7 +42,7 @@ CSWDescribeRecord <- R6Class("CSWDescribeRecord",
        )
        namedParams <- c(namedParams, namespace = namespace, typeName = typeName)
 
-       super$initialize(op, "GET", url, request = private$name,
+       super$initialize(capabilities, op, "GET", url, request = private$name,
                         namedParams = namedParams,
                         mimeType = "text/xml", logger = logger, ...)
        self$execute()

diff --git a/R/CSWGetRecordById.R b/R/CSWGetRecordById.R
@@ -41,7 +41,7 @@ CSWGetRecordById <- R6Class("CSWGetRecordById",
                        paste(allowedElementSetNames, collapse=",")))
         }
         self$ElementSetName = elementSetName
-        super$initialize(op, "POST", url, request = private$xmlElement,
+        super$initialize(capabilities, op, "POST", url, request = private$xmlElement,
                          user = user, pwd = pwd, token = token, headers = headers,
                          contentType = "text/xml", mimeType = "text/xml",
                          logger = logger, ...)

diff --git a/R/CSWGetRecords.R b/R/CSWGetRecords.R
@@ -37,7 +37,7 @@ CSWGetRecords <- R6Class("CSWGetRecords",
     initialize = function(capabilities, op, url, serviceVersion = "2.0.2", 
                           user = NULL, pwd = NULL, token = NULL, headers = list(),
                           query = NULL, logger = NULL, ...) {
-      super$initialize(op, "POST", url, request = private$xmlElement,
+      super$initialize(capabilities, op, "POST", url, request = private$xmlElement,
                        user = user, pwd = pwd, token = token, headers = headers,
                        contentType = "text/xml", mimeType = "text/xml",
                        logger = logger, ...)

diff --git a/R/CSWHarvest.R b/R/CSWHarvest.R
@@ -37,7 +37,7 @@ CSWHarvest <- R6Class("CSWHarvest",
                            resourceType = "http://www.isotc211.org/schemas/2005/gmd/",
                            resourceFormat = "application/xml",
                            logger = NULL, ...) {
-       super$initialize(op, "POST", url, request = private$xmlElement,
+       super$initialize(capabilities, op, "POST", url, request = private$xmlElement,
                         user = user, pwd = pwd, token = token, headers = headers,
                         contentType = "text/xml", mimeType = "text/xml",
                         logger = logger, ...)

diff --git a/R/CSWTransaction.R b/R/CSWTransaction.R
@@ -39,7 +39,7 @@ CSWTransaction <- R6Class("CSWTransaction",
         recordProperty = recordProperty,
         constraint = constraint
       )
-      super$initialize(op, "POST", url, request = private$xmlElement,
+      super$initialize(capabilities, op, "POST", url, request = private$xmlElement,
                        user = user, pwd = pwd, token = token, headers = headers,
                        contentType = "text/xml", mimeType = "text/xml",
                        logger = logger, ...)

diff --git a/R/WFSDescribeFeatureType.R b/R/WFSDescribeFeatureType.R
@@ -25,7 +25,7 @@ WFSDescribeFeatureType <- R6Class("WFSDescribeFeatureType",
   public = list(
     initialize = function(capabilities, op, url, version, typeName, logger = NULL, ...) {
       namedParams <- list(service = "WFS", version = version, typeName = typeName)
-      super$initialize(op, "GET", url, request = private$name,
+      super$initialize(capabilities, op, "GET", url, request = private$name,
                        namedParams = namedParams, mimeType = "text/xml", logger = logger,
                        ...)
       self$execute()

diff --git a/R/WFSGetFeature.R b/R/WFSGetFeature.R
@@ -61,7 +61,7 @@ WFSGetFeature <- R6Class("WFSGetFeature",
 
        if(length(vendorParams)>0) namedParams <- c(namedParams, vendorParams)
        namedParams <- namedParams[!sapply(namedParams, is.null)]
-       super$initialize(op, "GET", url, request = private$name, 
+       super$initialize(capabilities, op, "GET", url, request = private$name, 
                         namedParams = namedParams, mimeType = mimeType, logger = logger)
        self$execute()
      }

diff --git a/R/WMSGetFeatureInfo.R b/R/WMSGetFeatureInfo.R
@@ -63,7 +63,7 @@ WMSGetFeatureInfo <- R6Class("WMSGetFeatureInfo",
      vendorParams <- list(...)
      if(length(vendorParams)>0) namedParams <- c(namedParams, vendorParams)
      namedParams <- namedParams[!sapply(namedParams, is.null)]
-     super$initialize(op, "GET", url, request = private$name, 
+     super$initialize(capabilities, op, "GET", url, request = private$name, 
                       namedParams = namedParams, mimeType = mimeType, 
                       logger = logger)
      self$execute()