#9 fix over OWSBoundingBox spatial domain

eblondel · Feb 14, 2022 · 9ecdb3e · 9ecdb3e
1 parent a3a728d
commit 9ecdb3e
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 22 deletions.
diff --git a/R/WCSCoverageSpatialDomain.R b/R/WCSCoverageSpatialDomain.R
@@ -67,7 +67,7 @@ WCSCoverageSpatialDomain <- R6Class("WCSCoverageSpatialDomain",
       if(startsWith(serviceVersion, "1.1")){
         bboxXML <- getNodeSet(xmlDoc(xmlObj), "//ns:BoundingBox", ns)
         bboxes <- lapply(bboxXML, function(x){
-          return(OWSBoundingBox$new(xmlObj = x, owsVersion))
+          return(OWSBoundingBox$new(xmlObj = x, owsVersion = owsVersion, serviceVersion = serviceVersion))
         })
         gridcrs <- NULL
         gridcrsXML <- getNodeSet(xmlDoc(xmlObj), "//ns:GridCRS", wcsNs)

diff --git a/R/WPSProcessDescription.R b/R/WPSProcessDescription.R
@@ -154,19 +154,19 @@ WPSProcessDescription <- R6Class("WPSProcessDescription",
     },
 
     #'@description Get process identifier
-    #'@param the identifier, object of class \code{character}
+    #'@return the identifier, object of class \code{character}
     getIdentifier = function(){
       return(private$identifier)
     },
 
     #'@description Get process title
-    #'@param the title, object of class \code{character}
+    #'@return the title, object of class \code{character}
     getTitle = function(){
       return(private$title)
     },
 
     #'@description Get process abstract
-    #'@param the abstract, object of class \code{character}
+    #'@return the abstract, object of class \code{character}
     getAbstract = function(){
       return(private$abstract)
     },

diff --git a/man/WPSProcessDescription.Rd b/man/WPSProcessDescription.Rd