Nothing
#' SWECategoryRange
#'
#' @docType class
#' @importFrom R6 R6Class
#' @export
#' @keywords ISO SWE
#' @return Object of \code{\link{R6Class}} for modelling an SWE CategoryRange
#' @format \code{\link{R6Class}} object.
#'
#' @references
#' SWE Common Data Model Encoding Standard. https://www.ogc.org/standards/swecommon
#'
#' @author Emmanuel Blondel <emmanuel.blondel1@@gmail.com>
#'
SWECategoryRange <- R6Class("SWECategoryRange",
inherit = SWEAbstractSimpleComponent,
private = list(
xmlElement = "CategoryRange",
xmlNamespacePrefix = "SWE"
),
public = list(
#'@field codeSpace codeSpace
codeSpace = NULL,
#'@field constraint constraint
constraint = NULL,
#'@field value value
value = matrix(NA_character_, 1, 2),
#'@description Initializes an object of class \link{SWECategoryRange}
#'@param xml object of class \link{XMLInternalNode-class} from \pkg{XML}
#'@param codeSpace codeSpace
#'@param constraint constraint
#'@param value value
#'@param updatable updatable
#'@param optional optional
#'@param definition definition
initialize = function(xml = NULL,
codeSpace = NULL, constraint = NULL, value = NULL,
updatable = NULL, optional = FALSE, definition = NULL){
super$initialize(xml, element = private$xmlElement,
updatable = updatable, optional = optional, definition = definition)
if(is.null(xml)){
self$setCodeSpace(codeSpace)
self$setConstraint(constraint)
self$setValue(value)
}
},
#'@description setCodeSpace
#'@param codeSpace codeSpace
setCodeSpace = function(codeSpace){
self$codeSpace <- SWEElement$create(element = "codeSpace", value = codeSpace)
},
#'@description setConstraint
#'@param constraint constraint
setConstraint = function(constraint){
self$constraint <- SWEElement$create(element = "constraint", value = constraint)
},
#'@description setValue
#'@param value value
setValue = function(value){
if(!is.character(value)){
stop("Values should be character")
}
if(is.vector(value)){
if(length(value)!="2"){
stop("Vector of values should of length 2")
}
}else if(is.matrix(value)){
if(!all(dim(value)==c(1,2))){
stop("Matrix of values should be of dimensions 1,2")
}
}else{
stop("Value should be either a vector or matrix")
}
self$value <- SWEElement$create(element = "value", value = value)
}
)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.