From d6ddcd07fcee39b6480f43dbd93b620f73cc1811 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Thu, 13 Sep 2018 11:03:42 +0200
Subject: [PATCH] #57 GMLVerticalCRS

---
 NAMESPACE             |  1 +
 R/GMLVerticalCRS.R    | 56 +++++++++++++++++++++++++++++++++++++++++++
 man/GMLVerticalCRS.Rd | 44 ++++++++++++++++++++++++++++++++++
 3 files changed, 101 insertions(+)
 create mode 100644 R/GMLVerticalCRS.R
 create mode 100644 man/GMLVerticalCRS.Rd

diff --git a/NAMESPACE b/NAMESPACE
index 1bdfe90a..0614fa90 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -76,6 +76,7 @@ export(GMLTimeCS)
 export(GMLTimePeriod)
 export(GMLUnitDefinition)
 export(GMLUserDefinedCS)
+export(GMLVerticalCRS)
 export(GMLVerticalCS)
 export(ISOAbsoluteExternalPositionalAccuracy)
 export(ISOAbstractCatalogue)
diff --git a/R/GMLVerticalCRS.R b/R/GMLVerticalCRS.R
new file mode 100644
index 00000000..9b4b1373
--- /dev/null
+++ b/R/GMLVerticalCRS.R
@@ -0,0 +1,56 @@
+#' GMLVerticalCRS
+#'
+#' @docType class
+#' @importFrom R6 R6Class
+#' @export
+#' @keywords ISO GML vertical crs
+#' @return Object of \code{\link{R6Class}} for modelling an GMLVerticalCRS
+#' @format \code{\link{R6Class}} object.
+#'
+#' @field verticalCS
+#' @field verticalDatum
+#'
+#' @section Methods:
+#' \describe{
+#'  \item{\code{new(xml, defaults, id)}}{
+#'    This method is used to instantiate a GML temporal CRS
+#'  }
+#' }
+#' 
+#' @references 
+#'   ISO 19136:2007 Geographic Information -- Geographic Markup Language.
+#'   http://www.iso.org/iso/iso_catalogue/catalogue_tc/catalogue_detail.htm?csnumber=32554 
+#'   
+#'   OGC Geography Markup Language. http://www.opengeospatial.org/standards/gml
+#' 
+#' @author Emmanuel Blondel <emmanuel.blondel1@@gmail.com>
+#'
+GMLVerticalCRS <- R6Class("GMLVerticalCRS",
+  inherit = GMLAbstractSingleCRS,
+  private = list(
+    xmlElement = "VerticalCRS",
+    xmlNamespacePrefix = "GML"
+  ),
+  public = list(
+    
+    verticalCS = NULL,
+    verticalDatum = NULL,
+    
+    #setVerticalCS
+    setVerticalCS = function(verticalCS){
+      if(!is(verticalCS, "GMLVerticalCS")){
+        stop("The argument should be an object of class 'GMLVerticalCS")
+      }
+      self$verticalCS <- GMLElement$create("verticalCS", verticalCS)
+    },
+    
+    #setVerticalDatum
+    setVerticalDatum = function(verticalDatum){
+      if(!is(verticalDatum, "GMLVerticalDatum")){
+        stop("The argument should be an object of class 'GMLVerticalDatum")
+      }
+      self$verticalDatum <- GMLElement$create("verticalDatum", verticalDatum)
+    }
+    
+  )
+)
\ No newline at end of file
diff --git a/man/GMLVerticalCRS.Rd b/man/GMLVerticalCRS.Rd
new file mode 100644
index 00000000..ee786b0f
--- /dev/null
+++ b/man/GMLVerticalCRS.Rd
@@ -0,0 +1,44 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/GMLVerticalCRS.R
+\docType{class}
+\name{GMLVerticalCRS}
+\alias{GMLVerticalCRS}
+\title{GMLVerticalCRS}
+\format{\code{\link{R6Class}} object.}
+\usage{
+GMLVerticalCRS
+}
+\value{
+Object of \code{\link{R6Class}} for modelling an GMLVerticalCRS
+}
+\description{
+GMLVerticalCRS
+}
+\section{Fields}{
+
+\describe{
+\item{\code{verticalDatum}}{}
+}}
+
+\section{Methods}{
+
+\describe{
+ \item{\code{new(xml, defaults, id)}}{
+   This method is used to instantiate a GML temporal CRS
+ }
+}
+}
+
+\references{
+ISO 19136:2007 Geographic Information -- Geographic Markup Language.
+  http://www.iso.org/iso/iso_catalogue/catalogue_tc/catalogue_detail.htm?csnumber=32554 
+  
+  OGC Geography Markup Language. http://www.opengeospatial.org/standards/gml
+}
+\author{
+Emmanuel Blondel <emmanuel.blondel1@gmail.com>
+}
+\keyword{GML}
+\keyword{ISO}
+\keyword{crs}
+\keyword{vertical}