Nothing
#' SWEAbstractSimpleComponent
#'
#' @docType class
#' @importFrom R6 R6Class
#' @export
#' @keywords ISO SWE
#' @return Object of \code{\link{R6Class}} for modelling an SWE Abstract simple component
#' @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>
#'
SWEAbstractSimpleComponent <- R6Class("SWEAbstractSimpleComponent",
inherit = SWEAbstractDataComponent,
private = list(
xmlElement = "AbstractSimpleComponent",
xmlNamespacePrefix = "SWE"
),
public = list(
#'@field nilValues nil values
nilValues = NULL,
#'@description Initializes an object of class \link{SWEAbstractSimpleComponent}
#'@param xml object of class \link{XMLInternalNode-class} from \pkg{XML}
#'@param element element
#'@param updatable updatable
#'@param optional optional
#'@param definition definition
initialize = function(xml = NULL, element = NULL, updatable = NULL, optional = FALSE, definition = NULL){
if(is.null(element)) element <- private$xmlElement
super$initialize(xml, element = element, updatable = updatable, optional = optional, definition = definition)
},
#'@description Set nil value and its reason (optional)
#'@param nilValue value to set as nil Value. object of class \code{numeric}
setNilValues = function(nilValue){
self$nilValues = SWENilValues$new(value = nilValue)
}
)
)
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.