#187 work on SWE NilValues decoding

NAMESPACE

@@ -321,12 +321,14 @@ export(ISOVectorSpatialRepresentation)
 export(ISOVerticalExtent)
 export(SWEAbstractDataComponent)
 export(SWEAbstractObject)
+export(SWEAbstractSWE)
 export(SWEAbstractSimpleComponent)
 export(SWECategory)
 export(SWECategoryRange)
 export(SWECount)
 export(SWECountRange)
 export(SWEDataRecord)
+export(SWENilValues)
 export(SWEQuantity)
 export(SWEQuantityRange)
 export(SWEText)

R/SWEAbstractSWE.R

@@ -0,0 +1,35 @@
+#' SWEAbstractSWE
+#'
+#' @docType class
+#' @importFrom R6 R6Class
+#' @export
+#' @keywords ISO GML
+#' @return Object of \code{\link{R6Class}} for modelling an SWE abstract SWE object
+#' @format \code{\link{R6Class}} object.
+#' 
+#' @note Class used internally by geometa
+#' 
+#' @author Emmanuel Blondel <emmanuel.blondel1@@gmail.com>
+#'
+SWEAbstractSWE <- R6Class("SWEAbstractSWE",
+   inherit = ISOAbstractObject,
+   private = list(
+     xmlElement = "AbstractSWE",
+     xmlNamespacePrefix = "SWE"
+   ),
+   public = list(
+
+     #'@description Initializes an object of class \link{SWEAbstractSWE}
+     #'@param xml object of class \link{XMLInternalNode-class} from \pkg{XML}
+     #'@param element element
+     #'@param attrs attrs
+     #'@param defaults defaults
+     #'@param wrap wrap
+     initialize = function(xml = NULL, element = NULL, attrs = list(), defaults = list(), wrap = FALSE){
+       if(is.null(element)) element <- private$xmlElement
+       super$initialize(xml, element, namespace = private$xmlNamespacePrefix, 
+                        attrs = attrs, defaults = defaults,
+                        wrap = wrap, value_as_field = TRUE)
+     }
+   )                        
+)

R/SWEAbstractSimpleComponent.R

@@ -20,6 +20,9 @@ SWEAbstractSimpleComponent <- R6Class("SWEAbstractSimpleComponent",
   ),
   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
@@ -29,6 +32,12 @@ SWEAbstractSimpleComponent <- R6Class("SWEAbstractSimpleComponent",
     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)
     }
   )                        
 )

R/SWENilValues.R

@@ -0,0 +1,33 @@
+#' SWENilValues
+#'
+#' @docType class
+#' @importFrom R6 R6Class
+#' @export
+#' @keywords ISO SWE
+#' @return Object of \code{\link{R6Class}} for modelling an SWE nil values object
+#' @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>
+#'
+SWENilValues <- R6Class("SWENilValues",
+   inherit = SWEAbstractSWE,
+   private = list(
+     xmlElement = "NilValues",
+     xmlNamespacePrefix = "SWE"
+   ),
+   public = list(
+
+     #'@field nilValue nil value
+     nilValue = matrix(NA_real_, 1, 1),
+
+     initialize = function(xml = NULL, value = NULL){
+       super$initialize(xml, element = private$xmlElement, 
+                        attrs = list(), defaults = list(),
+                        wrap = FALSE)
+        if(!is.null(value)) self$nilValue = value
+     }
+   )                        
+)