fix GMLElement & Rdoc

eblondel · Jun 26, 2017 · 7939b93 · 7939b93
1 parent aed67e0
commit 7939b93
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/R/GMLAbstractCoordinateOperation.R b/R/GMLAbstractCoordinateOperation.R
@@ -17,7 +17,7 @@
 #'  \item{\code{new(xml, defaults, id)}}{
 #'    This method is used to instantiate a GML Abstract CRS
 #'  }
-#'  \item{\Code{setVersion(version)}}{
+#'  \item{\code{setVersion(version)}}{
 #'    Sets version
 #'  }
 #'  \item{\code{addAccuracy(accuracy)}}{

diff --git a/R/GMLElement.R b/R/GMLElement.R
@@ -60,7 +60,11 @@ GMLElement <- R6Class("GMLElement",
               childName <- names(children)[i]
               childElem <- GMLElement$new(element = childName)
               childElem$decode(xml = childXML)
-              self[[childName]] <- childElem
+              if(is(self[[childName]], "list")){
+                self[[childName]] <- c(self[[childName]], childElem)
+              }else{
+                self[[childName]] <- childElem
+              }
             }
           }
         }

diff --git a/man/GMLAbstractCoordinateOperation.Rd b/man/GMLAbstractCoordinateOperation.Rd
@@ -31,7 +31,7 @@ GMLAbstractCoordinateOperation
  \item{\code{new(xml, defaults, id)}}{
    This method is used to instantiate a GML Abstract CRS
  }
- \item{\Code{setVersion(version)}}{
+ \item{\code{setVersion(version)}}{
    Sets version
  }
  \item{\code{addAccuracy(accuracy)}}{