eblondel#10 rdoc

R/WPSDescribeProcess.R

@@ -9,7 +9,7 @@
 #' @section Methods:
 #' \describe{
 #'  \item{\code{new(capabilities, op, url, version, identifier, logger, ...)}}{
-#'    This method is used to instantiate a WPSDescribeProcess object
+#'    This method is used to instantiate a \code{WPSDescribeProcess} object
 #'  }
 #' }
 #' 

R/WPSExecuteResponse.R

@@ -20,6 +20,9 @@
 #'  \item{\code{getProcessOutputs()}}{
 #'    Get the process output(s)
 #'  }
+#'  \item{\code{decode()}}{
+#'    Decodes WPS Execute response from XML
+#'  }
 #' }
 #' 
 #' 
@@ -29,8 +32,7 @@ WPSExecuteResponse <- R6Class("WPSExecuteResponse",
   inherit = OGCAbstractObject,
   private = list(
     xmlElement = "ExecuteResponse",
-    xmlNamespace = c(wps = "http://www.opengis.net/wps"),
-    xmlObj = NULL
+    xmlNamespace = c(wps = "http://www.opengis.net/wps")
   ),
   public = list(
     process = NULL,
@@ -64,11 +66,6 @@ WPSExecuteResponse <- R6Class("WPSExecuteResponse",
         self$processOutputs <- lapply(outputsXML, function(x){WPSOutput$new(xmlObj = x)})
         names(self$processOutputs) <- NULL
       }
-    },
-
-    #
-    xml = function(){
-      return(private$xmlObj)
     }
   )
 )

R/WPSFormat.R

@@ -24,7 +24,7 @@
 #'    Set if default format or not
 #'  }
 #'  \item{\code{isDefault()}}{
-#'    Is default format?
+#'    Is default format
 #'  }
 #' }
 #' 

R/WPSLiteralData.R

@@ -9,7 +9,10 @@
 #' @section Methods:
 #' \describe{
 #'  \item{\code{new(xmlObj, value)}}{
-#'    This method is used to instantiate a WPSLiteralData object
+#'    This method is used to instantiate a \code{WPSLiteralData} object
+#'  }
+#'  \item{\code{decode()}}{
+#'    Decodes WPS input from XML
 #'  }
 #' }
 #' 

R/WPSOutput.R

@@ -8,8 +8,11 @@
 #'
 #' @section Methods:
 #' \describe{
-#'  \item{\code{new(identifier, data)}}{
-#'    This method is used to instantiate a WPSOutput object
+#'  \item{\code{new(xmlObj, identifier, title, data)}}{
+#'    This method is used to instantiate a \code{WPSOutput} object
+#'  }
+#'  \item{\code{decode()}}{
+#'    Decodes WPS output from XML
 #'  }
 #' }
 #' 

R/WPSProcess.R

@@ -130,7 +130,6 @@ WPSProcess <- R6Class("WPSProcess",
       }
 
       client = private$capabilities$getClient()
-      print(client$getHeaders())
       processExecute <- WPSExecute$new(capabilities = private$capabilities, op = op, private$url, private$version, private$identifier,
                                        dataInputs = dataInputs, responseForm = responseForm, language = language,
                                        user = client$getUser(), pwd = client$getPwd(), token = client$getToken(), headers = client$getHeaders(),

R/WPSProcessDescription.R

@@ -8,7 +8,7 @@
 #'
 #' @section Methods:
 #' \describe{
-#'  \item{\code{new(xmlObj, capabilities, version, logger)}}{
+#'  \item{\code{new(xmlObj, version, logger)}}{
 #'    This method is used to instantiate a \code{WPSProcessDescription} object
 #'  }
 #'  \item{\code{getIdentifier()}}{

R/ows4R.R

@@ -16,7 +16,7 @@
 #'    Type: \tab Package\cr
 #'    Version
 #'    : \tab 0.2\cr
-#'    Date: \tab 2021-07-090\cr
+#'    Date: \tab 2021-07-09\cr
 #'    License: \tab MIT\cr
 #'    LazyLoad: \tab yes\cr
 #'  }