diff --git a/NAMESPACE b/NAMESPACE index 13e8dab..c9df9be 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -51,7 +51,13 @@ export(WMSGetFeatureInfo) export(WMSLayer) export(WPSCapabilities) export(WPSClient) +export(WPSComplexInputDescription) export(WPSDescribeProcess) +export(WPSDescriptionParameter) +export(WPSFormat) +export(WPSInputDescription) +export(WPSLiteralInputDescription) +export(WPSParameter) export(WPSProcess) export(WPSProcessDescription) import(XML) diff --git a/R/WPSComplexInputDescription.R b/R/WPSComplexInputDescription.R new file mode 100644 index 0000000..fc5a0ea --- /dev/null +++ b/R/WPSComplexInputDescription.R @@ -0,0 +1,28 @@ +#' WPSComplexInputDescription +#' +#' @docType class +#' @export +#' @keywords OGC WPS Process complex input description +#' @return Object of \code{\link{R6Class}} modelling a WPS process complex input description +#' @format \code{\link{R6Class}} object. +#' +#' @section Methods: +#' \describe{ +#' \item{\code{new(xmlObj, version, logger)}}{ +#' This method is used to instantiate a \code{WPSComplexInputDescription} object +#' } +#' } +#' +#' @note Class used internally by \pkg{ows4R} +#' +#' @author Emmanuel Blondel +#' +WPSComplexInputDescription <- R6Class("WPSComplexInputDescription", + inherit = WPSInputDescription, + private = list(), + public = list( + initialize = function(xmlObj = NULL, version, logger = NULL, ...){ + super$initialize(xmlObj = xmlObj, version = version, logger = logger, ...) + } + ) +) \ No newline at end of file diff --git a/R/WPSDescriptionParameter.R b/R/WPSDescriptionParameter.R new file mode 100644 index 0000000..913de96 --- /dev/null +++ b/R/WPSDescriptionParameter.R @@ -0,0 +1,73 @@ +#' WPSDescriptionParameter +#' +#' @docType class +#' @export +#' @keywords OGC WPS Process input description parameter +#' @return Object of \code{\link{R6Class}} modelling a WPS process input description parameter +#' @format \code{\link{R6Class}} object. +#' +#' @section Methods: +#' \describe{ +#' \item{\code{new(xmlObj, version, logger)}}{ +#' This method is used to instantiate a \code{WPSDescriptionParameter} object +#' } +#' \item{\code{getFormats()}}{ +#' Get formats +#' } +#' } +#' +#' @note Class used internally by \pkg{ows4R} +#' +#' @author Emmanuel Blondel +#' +WPSDescriptionParameter <- R6Class("WPSDescriptionParameter", + inherit = WPSParameter, + private = list( + + formats = list(), + + #fetchFormats + fetchFormats = function(xmlObj, version){ + + children <- xmlChildren(xmlObj) + dataElement <- names(children)[endsWith(names(children), "Data")][1] + children <- xmlChildren(children[[dataElement]]) + + formats <- list() + if(version == "1.0.0"){ + if("Default" %in% names(children)){ + defaultFormat <- WPSFormat$new(xmlObj = xmlChildren(children$Default)$Format, version = version) + defaultFormat$setIsDefault(TRUE) + formats <- c(formats, defaultFormat) + } + if("Supported" %in% names(children)){ + supportedFormats <- lapply(xmlChildren(children$Supported), WPSFormat$new, version = version) + formats <- c(formats, supportedFormats) + } + names(formats) <- NULL + + }else if(version == "2.0"){ + formatsXML <- children[names(children) == "Format"] + formats <- lapply(formatsXML, lapply(formatsXML, WPSFormat$new, version = version)) + names(formats) <- NULL + } + return(formats) + } + + ), + public = list( + initialize = function(xmlObj = NULL, version, logger = NULL, ...){ + super$initialize(xmlObj = xmlObj, version = version, logger = logger, ...) + private$version = version + if(!is.null(xmlObj)){ + private$formats = private$fetchFormats(xmlObj, version) + } + }, + + #getFormats + getFormats = function(){ + return(private$formats) + } + + ) +) \ No newline at end of file diff --git a/R/WPSFormat.R b/R/WPSFormat.R new file mode 100644 index 0000000..9e7bd23 --- /dev/null +++ b/R/WPSFormat.R @@ -0,0 +1,106 @@ +#' WPSFormat +#' +#' @docType class +#' @export +#' @keywords OGC WPS Process input description +#' @return Object of \code{\link{R6Class}} modelling a WPS process input description +#' @format \code{\link{R6Class}} object. +#' +#' @section Methods: +#' \describe{ +#' \item{\code{new(xmlObj, version, logger)}}{ +#' This method is used to instantiate a \code{WPSFormat} object +#' } +#' \item{\code{getMimeType()}}{ +#' Get mimetype +#' } +#' \item{\code{getEncoding()}}{ +#' Get encoding +#' } +#' \ìtem{\code{getSchema()}}{ +#' Get schema +#' } +#' \item{\code{setIsDefault(default)}}{ +#' Set if default format or not +#' } +#' \item{\code{isDefault()}}{ +#' Is default format? +#' } +#' } +#' +#' @note Class used internally by \pkg{ows4R} +#' +#' @author Emmanuel Blondel +#' +WPSFormat <- R6Class("WPSFormat", + inherit = OGCAbstractObject, + private = list( + version = NA, + mimeType = NA, + encoding = NA, + schema = NA, + default = FALSE, + + #fetchFormat + fetchFormat = function(xmlObj, version){ + + format <- NULL + if(version == "1.0.0"){ + children <- xmlChildren(xmlObj) + format = list( + mimeType = if(!is.null(children$MimeType)) xmlValue(children$MimeType) else NA, + encoding = if(!is.null(children$Encoding)) xmlValue(children$Encoding) else NA, + schema = if(!is.null(children$Schema)) xmlValue(children$Schema) else NA + ) + }else if(version == "2.0"){ + format = list( + mimeType = xmlGetAttr(xmlObj, "mimeType"), + encoding = xmlGetAttr(xmlObj, "encoding"), + schema = xmlGetAttr(xmlObj, "schema"), + default = xmlGetAttr(xmlObj, "default") == "true" + ) + } + return(format) + } + + ), + public = list( + initialize = function(xmlObj = NULL, version, logger = NULL, ...){ + super$initialize(logger = logger) + private$version = version + if(!is.null(xmlObj)){ + format = private$fetchFormat(xmlObj, version) + private$mimeType = format$mimeType + private$encoding = format$encoding + private$schema = format$schema + private$default = format$default + } + }, + + #getMimeType + getMimeType = function(){ + return(private$mimeType) + }, + + #getEncoding + getEncoding = function(){ + return(private$encoding) + }, + + #getSchema + getSchema = function(){ + return(private$schema) + }, + + #setIsDefault + setIsDefault = function(default){ + private$default = default + }, + + #isDefault + isDefault = function(){ + return(private$default) + } + + ) +) \ No newline at end of file diff --git a/R/WPSInputDescription.R b/R/WPSInputDescription.R new file mode 100644 index 0000000..3e37579 --- /dev/null +++ b/R/WPSInputDescription.R @@ -0,0 +1,78 @@ +#' WPSInputDescription +#' +#' @docType class +#' @export +#' @keywords OGC WPS Process input description +#' @return Object of \code{\link{R6Class}} modelling a WPS process input description +#' @format \code{\link{R6Class}} object. +#' +#' @section Methods: +#' \describe{ +#' \item{\code{new(xmlObj, capabilities, version, logger)}}{ +#' This method is used to instantiate a \code{WPSInputDescription} object +#' } +#' \item{\code{getMinOccurs()}}{ +#' Get input min occurs +#' } +#' \item{\code{getMaxOccurs()}}{ +#' Get input max occurs +#' } +#' } +#' +#' @note Class used internally by \pkg{ows4R} +#' +#' @author Emmanuel Blondel +#' +WPSInputDescription <- R6Class("WPSInputDescription", + inherit = WPSDescriptionParameter, + private = list( + minOccurs = NA, + maxOccurs = NA, + + #fetchInputDescription + fetchInputDescription = function(xmlObj, version){ + + inputDescription <- list( + minOccurs = xmlGetAttr(xmlObj, "minOccurs"), + maxOccurs = xmlGetAttr(xmlObj, "maxOccurs") + ) + + return(inputDescription) + } + + ), + public = list( + initialize = function(xmlObj = NULL, version, logger = NULL, ...){ + super$initialize(xmlObj = xmlObj, version = version, logger = logger, ...) + private$version = version + if(!is.null(xmlObj)){ + inputDescription = private$fetchInputDescription(xmlObj, version) + private$minOccurs = inputDescription$minOccurs + private$maxOccurs = inputDescription$maxOccurs + } + }, + + #getMinOccurs + getMinOccurs = function(){ + return(private$minOccurs) + }, + + #getMaxOccurs + getMaxOccurs = function(){ + return(private$maxOccurs) + }, + + #asDataFrame + asDataFrame = function(){ + return(data.frame( + identifier = self$getIdentifier(), + title = self$getTitle(), + abstract = self$getAbstract(), + minOccurs = self$getMinOccurs(), + maxOccurs = self$getMaxOccurs(), + stringsAsFactors = FALSE + )) + } + + ) +) \ No newline at end of file diff --git a/R/WPSLiteralInputDescription.R b/R/WPSLiteralInputDescription.R new file mode 100644 index 0000000..88e4dc0 --- /dev/null +++ b/R/WPSLiteralInputDescription.R @@ -0,0 +1,80 @@ +#' WPSLiteralInputDescription +#' +#' @docType class +#' @export +#' @keywords OGC WPS Process input description +#' @return Object of \code{\link{R6Class}} modelling a WPS process input description +#' @format \code{\link{R6Class}} object. +#' +#' @section Methods: +#' \describe{ +#' \item{\code{new(xmlObj, version, logger)}}{ +#' This method is used to instantiate a \code{WPSLiteralInputDescription} object +#' } +#' \item{\code{getDataType()}}{ +#' Get data type +#' } +#' \item{\code{getDefaultValue()}}{ +#' Get default value +#' } +#' \item{\code{getAllowedValues()}}{ +#' Get allowed values +#' } +#' } +#' +#' @note Class used internally by \pkg{ows4R} +#' +#' @author Emmanuel Blondel +#' +WPSLiteralInputDescription <- R6Class("WPSLiteralInputDescription", + inherit = WPSInputDescription, + private = list( + dataType = NA, + defaultValue = NA, + allowedValues = c(), + anyValue = FALSE, #NOT IMPLEMENTED + uoms = list(), #NOT IMPLEMENTED + + #fetchLiteralInput + fetchLiteralInput = function(xmlObj, version){ + + children <- xmlChildren(xmlChildren(xmlObj)$LiteralData) + + literalInput <- list( + dataType = xmlGetAttr(children$DataType, "ows:reference"), + defaultValue = xmlValue(children$DefaultValue), + allowedValues = sapply(xmlChildren(children$AllowedValues), xmlValue) + ) + + return(literalInput) + } + + ), + public = list( + initialize = function(xmlObj = NULL, version, logger = NULL, ...){ + super$initialize(xmlObj = xmlObj, version = version, logger = logger, ...) + private$version = version + if(!is.null(xmlObj)){ + literalInput = private$fetchLiteralInput(xmlObj, version) + private$dataType = literalInput$dataType + private$defaultValue = literalInput$defaultValue + private$allowedValues = literalInput$allowedValues + } + }, + + #getDataType + getDataType = function(){ + return(private$dataType) + }, + + #getDefaultValue + getDefaultValue = function(){ + return(private$defaultValue) + }, + + #getAllowedValues + getAllowedValues = function(){ + return(private$allowedValues) + } + ) +) \ No newline at end of file diff --git a/R/WPSParameter.R b/R/WPSParameter.R new file mode 100644 index 0000000..2888522 --- /dev/null +++ b/R/WPSParameter.R @@ -0,0 +1,95 @@ +#' WPSParameter +#' +#' @docType class +#' @export +#' @keywords OGC WPS Parameter +#' @return Object of \code{\link{R6Class}} modelling a WPS parameter +#' @format \code{\link{R6Class}} object. +#' +#' @section Methods: +#' \describe{ +#' \item{\code{new(xmlObj, version, logger)}}{ +#' This method is used to instantiate a \code{WPSParameter} object +#' } +#' \item{\code{getIdentifier()}}{ +#' Get input identifier +#' } +#' \item{\code{getTitle()}}{ +#' Get input title +#' } +#' \item{\code{getAbstract()}}{ +#' Get input abstract +#' } +#' } +#' +#' @note Abstract class used internally by \pkg{ows4R} +#' +#' @author Emmanuel Blondel +#' +WPSParameter <- R6Class("WPSParameter", + inherit = OGCAbstractObject, + private = list( + version = NA, + identifier = NA, + title = NA, + abstract= NA, + + #fetchParameter + fetchParameter = function(xmlObj, version){ + + children <- xmlChildren(xmlObj) + + processIdentifier <- NULL + if(!is.null(children$Identifier)){ + processIdentifier <- xmlValue(children$Identifier) + } + + processTitle <- NULL + if(!is.null(children$Title)){ + processTitle <- xmlValue(children$Title) + } + + processAbstract <- NULL + if(!is.null(children$Abstract)){ + processAbstract <- xmlValue(children$Abstract) + } + + processInput <- list( + identifier = processIdentifier, + title = processTitle, + abstract = processAbstract + ) + + return(processInput) + } + + ), + public = list( + initialize = function(xmlObj = NULL, version, logger = NULL, ...){ + super$initialize(logger = logger) + private$version = version + if(!is.null(xmlObj)){ + processInput = private$fetchParameter(xmlObj, version) + private$identifier = processInput$identifier + private$title = processInput$title + private$abstract = processInput$abstract + } + }, + + #getIdentifier + getIdentifier = function(){ + return(private$identifier) + }, + + #getTitle + getTitle = function(){ + return(private$title) + }, + + #getAbstract + getAbstract = function(){ + return(private$abstract) + } + + ) +) \ No newline at end of file diff --git a/R/WPSProcess.R b/R/WPSProcess.R index 792429c..c28e7e2 100644 --- a/R/WPSProcess.R +++ b/R/WPSProcess.R @@ -112,7 +112,7 @@ WPSProcess <- R6Class("WPSProcess", logger = self$loggerType) xmlObj <- processDescription$getResponse() processDescXML <- xmlChildren(xmlChildren(xmlObj)[[1]])[[1]] - processDesc <- WPSProcessDescription$new(xmlObj = processDescXML, capabilities = private$capabilities, private$version) + processDesc <- WPSProcessDescription$new(xmlObj = processDescXML, version = private$version) return(processDesc) } ) diff --git a/R/WPSProcessDescription.R b/R/WPSProcessDescription.R index 00cfd69..08f5358 100644 --- a/R/WPSProcessDescription.R +++ b/R/WPSProcessDescription.R @@ -29,6 +29,12 @@ #' \item{\code{isStoreSupported()}}{ #' Get whether store is supported #' } +#' \item{\code{getDataInputs()}}{ +#' Get data inputs +#' } +#' \item{\code{getProcessOutputs()}}{ +#' Get process outputs +#' } #' \item{\code{asDataFrame()}}{ #' Get process description as data.frame #' } @@ -52,6 +58,8 @@ WPSProcessDescription <- R6Class("WPSProcessDescription", processVersion = NA, statusSupported = FALSE, storeSupported = FALSE, + dataInputs = list(), + processOutputs = list(), #fetchProcessDescription fetchProcessDescription = function(xmlObj, version){ @@ -77,13 +85,30 @@ WPSProcessDescription <- R6Class("WPSProcessDescription", statusSupported <- xmlGetAttr(xmlObj, "statusSupported") == "true" storeSupported <- xmlGetAttr(xmlObj, "storeSupported") == "true" + dataInputsXML <- xmlChildren(children$DataInputs) + dataInputsXML <- dataInputsXML[names(dataInputsXML)=="Input"] + dataInputs <- lapply(dataInputsXML, function(x){ + input_binding <- NULL + if("LiteralData" %in% names(xmlChildren(x))){ + input_binding = WPSLiteralInputDescription$new(xmlObj = x, version = version) + }else if("ComplexData" %in% names(xmlChildren(x))){ + input_binding = WPSComplexInputDescription$new(xmlObj = x, version = version) + }else if("BoundingBoxData" %in% names(xmlChildren(x))){ + #TODO + } + return(input_binding) + }) + names(dataInputs) <- NULL + dataInputs <- dataInputs[!sapply(dataInputs, is.null)] + processDescription <- list( identifier = processIdentifier, title = processTitle, abstract = processAbstract, version = processVersion, statusSupported = statusSupported, - storeSupported = storeSupported + storeSupported = storeSupported, + dataInputs = dataInputs ) return(processDescription) @@ -91,11 +116,8 @@ WPSProcessDescription <- R6Class("WPSProcessDescription", ), public = list( - initialize = function(xmlObj, capabilities, version, logger = NULL, ...){ + initialize = function(xmlObj, version, logger = NULL, ...){ super$initialize(logger = logger) - - private$capabilities = capabilities - private$url = capabilities$getUrl() private$version = version processDesc = private$fetchProcessDescription(xmlObj, version) @@ -105,6 +127,7 @@ WPSProcessDescription <- R6Class("WPSProcessDescription", private$processVersion = processDesc$version private$statusSupported = processDesc$statusSupported private$storeSupported = processDesc$storeSupported + private$dataInputs = processDesc$dataInputs }, #getIdentifier @@ -129,26 +152,22 @@ WPSProcessDescription <- R6Class("WPSProcessDescription", #isStatusSupported isStatusSupported = function(){ - return(private$statusSupported) + return(private$isStatusSupported) }, #isStoreSupported isStoreSupported = function(){ - return(private$storeSupported) + return(private$isStoreSupported) }, - #asDataFrame - asDataFrame = function(){ - return(data.frame( - identifier = self$getIdentifier(), - title = self$getTitle(), - abstract = self$getAbstract(), - version = self$getVersion(), - statusSupported = self$isStatusSupported(), - storeSupported = self$isStoreSupported(), - stringsAsFactors = FALSE - )) - } + #getDataInputs + getDataInputs = function(){ + return(private$dataInputs) + }, + #getProcessOutputs + getProcessOutputs = function(){ + return(private$processOutputs) + } ) ) \ No newline at end of file diff --git a/man/WPSComplexInputDescription.Rd b/man/WPSComplexInputDescription.Rd new file mode 100644 index 0000000..9229d15 --- /dev/null +++ b/man/WPSComplexInputDescription.Rd @@ -0,0 +1,36 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/WPSComplexInputDescription.R +\docType{class} +\name{WPSComplexInputDescription} +\alias{WPSComplexInputDescription} +\title{WPSComplexInputDescription} +\format{ +\code{\link{R6Class}} object. +} +\value{ +Object of \code{\link{R6Class}} modelling a WPS process complex input description +} +\description{ +WPSComplexInputDescription +} +\note{ +Class used internally by \pkg{ows4R} +} +\section{Methods}{ + +\describe{ + \item{\code{new(xmlObj, version, logger)}}{ + This method is used to instantiate a \code{WPSComplexInputDescription} object + } +} +} + +\author{ +Emmanuel Blondel +} +\keyword{OGC} +\keyword{Process} +\keyword{WPS} +\keyword{complex} +\keyword{description} +\keyword{input} diff --git a/man/WPSDescriptionParameter.Rd b/man/WPSDescriptionParameter.Rd new file mode 100644 index 0000000..94df089 --- /dev/null +++ b/man/WPSDescriptionParameter.Rd @@ -0,0 +1,39 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/WPSDescriptionParameter.R +\docType{class} +\name{WPSDescriptionParameter} +\alias{WPSDescriptionParameter} +\title{WPSDescriptionParameter} +\format{ +\code{\link{R6Class}} object. +} +\value{ +Object of \code{\link{R6Class}} modelling a WPS process input description parameter +} +\description{ +WPSDescriptionParameter +} +\note{ +Class used internally by \pkg{ows4R} +} +\section{Methods}{ + +\describe{ + \item{\code{new(xmlObj, version, logger)}}{ + This method is used to instantiate a \code{WPSDescriptionParameter} object + } + \item{\code{getFormats()}}{ + Get formats + } +} +} + +\author{ +Emmanuel Blondel +} +\keyword{OGC} +\keyword{Process} +\keyword{WPS} +\keyword{description} +\keyword{input} +\keyword{parameter} diff --git a/man/WPSFormat.Rd b/man/WPSFormat.Rd new file mode 100644 index 0000000..cd77c2f --- /dev/null +++ b/man/WPSFormat.Rd @@ -0,0 +1,50 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/WPSFormat.R +\docType{class} +\name{WPSFormat} +\alias{WPSFormat} +\title{WPSFormat} +\format{ +\code{\link{R6Class}} object. +} +\value{ +Object of \code{\link{R6Class}} modelling a WPS process input description +} +\description{ +WPSFormat +} +\note{ +Class used internally by \pkg{ows4R} +} +\section{Methods}{ + +\describe{ + \item{\code{new(xmlObj, version, logger)}}{ + This method is used to instantiate a \code{WPSFormat} object + } + \item{\code{getMimeType()}}{ + Get mimetype + } + \item{\code{getEncoding()}}{ + Get encoding + } + \ìtem{\code{getSchema()}}{ + Get schema + } + \item{\code{setIsDefault(default)}}{ + Set if default format or not + } + \item{\code{isDefault()}}{ + Is default format? + } +} +} + +\author{ +Emmanuel Blondel +} +\keyword{OGC} +\keyword{Process} +\keyword{WPS} +\keyword{description} +\keyword{input} diff --git a/man/WPSInputDescription.Rd b/man/WPSInputDescription.Rd new file mode 100644 index 0000000..c1ba60d --- /dev/null +++ b/man/WPSInputDescription.Rd @@ -0,0 +1,41 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/WPSInputDescription.R +\docType{class} +\name{WPSInputDescription} +\alias{WPSInputDescription} +\title{WPSInputDescription} +\format{ +\code{\link{R6Class}} object. +} +\value{ +Object of \code{\link{R6Class}} modelling a WPS process input description +} +\description{ +WPSInputDescription +} +\note{ +Class used internally by \pkg{ows4R} +} +\section{Methods}{ + +\describe{ + \item{\code{new(xmlObj, capabilities, version, logger)}}{ + This method is used to instantiate a \code{WPSInputDescription} object + } + \item{\code{getMinOccurs()}}{ + Get input min occurs + } + \item{\code{getMaxOccurs()}}{ + Get input max occurs + } +} +} + +\author{ +Emmanuel Blondel +} +\keyword{OGC} +\keyword{Process} +\keyword{WPS} +\keyword{description} +\keyword{input} diff --git a/man/WPSLiteralInputDescription.Rd b/man/WPSLiteralInputDescription.Rd new file mode 100644 index 0000000..b39616a --- /dev/null +++ b/man/WPSLiteralInputDescription.Rd @@ -0,0 +1,44 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/WPSLiteralInputDescription.R +\docType{class} +\name{WPSLiteralInputDescription} +\alias{WPSLiteralInputDescription} +\title{WPSLiteralInputDescription} +\format{ +\code{\link{R6Class}} object. +} +\value{ +Object of \code{\link{R6Class}} modelling a WPS process input description +} +\description{ +WPSLiteralInputDescription +} +\note{ +Class used internally by \pkg{ows4R} +} +\section{Methods}{ + +\describe{ + \item{\code{new(xmlObj, version, logger)}}{ + This method is used to instantiate a \code{WPSLiteralInputDescription} object + } + \item{\code{getDataType()}}{ + Get data type + } + \item{\code{getDefaultValue()}}{ + Get default value + } + \item{\code{getAllowedValues()}}{ + Get allowed values + } +} +} + +\author{ +Emmanuel Blondel +} +\keyword{OGC} +\keyword{Process} +\keyword{WPS} +\keyword{description} +\keyword{input} diff --git a/man/WPSParameter.Rd b/man/WPSParameter.Rd new file mode 100644 index 0000000..4b8db34 --- /dev/null +++ b/man/WPSParameter.Rd @@ -0,0 +1,42 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/WPSParameter.R +\docType{class} +\name{WPSParameter} +\alias{WPSParameter} +\title{WPSParameter} +\format{ +\code{\link{R6Class}} object. +} +\value{ +Object of \code{\link{R6Class}} modelling a WPS parameter +} +\description{ +WPSParameter +} +\note{ +Abstract class used internally by \pkg{ows4R} +} +\section{Methods}{ + +\describe{ + \item{\code{new(xmlObj, version, logger)}}{ + This method is used to instantiate a \code{WPSParameter} object + } + \item{\code{getIdentifier()}}{ + Get input identifier + } + \item{\code{getTitle()}}{ + Get input title + } + \item{\code{getAbstract()}}{ + Get input abstract + } +} +} + +\author{ +Emmanuel Blondel +} +\keyword{OGC} +\keyword{Parameter} +\keyword{WPS} diff --git a/man/WPSProcessDescription.Rd b/man/WPSProcessDescription.Rd index c723ffa..a4b473d 100644 --- a/man/WPSProcessDescription.Rd +++ b/man/WPSProcessDescription.Rd @@ -40,6 +40,12 @@ Class used internally by \pkg{ows4R} \item{\code{isStoreSupported()}}{ Get whether store is supported } + \item{\code{getDataInputs()}}{ + Get data inputs + } + \item{\code{getProcessOutputs()}}{ + Get process outputs + } \item{\code{asDataFrame()}}{ Get process description as data.frame }