#171 fix getISOClassByNode

DESCRIPTION

@@ -2,7 +2,7 @@ Package: geometa
 Type: Package
 Title: Tools for Reading and Writing ISO/OGC Geographic Metadata
 Version: 0.6-3
-Date: 2020-06-03
+Date: 2020-07-28
 Authors@R: c(person("Emmanuel", "Blondel", role = c("aut", "cre"), email = "emmanuel.blondel1@gmail.com", comment = c(ORCID = "0000-0002-5870-5762")))
 Maintainer: Emmanuel Blondel <emmanuel.blondel1@gmail.com>
 Description: Provides facilities to handle reading and writing of geographic metadata 

R/ISOAbstractObject.R

@@ -438,7 +438,6 @@ ISOAbstractObject <- R6Class("ISOAbstractObject",
       xml_children <- xmlChildren(xml, encoding = private$encoding, addFinalizer = FALSE)
       for(child in xml_children){
         fieldName <- xmlName(child)
-
         childElement <- child
         nsPrefix <- ""
         fNames <- unlist(strsplit(fieldName, ":"))
@@ -1437,7 +1436,7 @@ ISOAbstractObject$getISOClassByNode = function(node){
     if(nodeElementName %in% clazz$private_fields$xmlElement){
       geometa_inherits <- FALSE
       superclazz <- clazz
-      while(!geometa_inherits){
+      while(!geometa_inherits && !is.null(superclazz)){
         clazz_fields <- names(superclazz)
         if(!is.null(clazz_fields)) if(length(clazz_fields)>0) if("parent_env" %in% clazz_fields){
           if(environmentName(superclazz$parent_env)=="geometa"){

R/geometa.R

@@ -12,7 +12,7 @@
 #'    Package: \tab geometa\cr
 #'    Type: \tab Package\cr
 #'    Version: \tab 0.6-3\cr
-#'    Date: \tab 2020-06-03\cr
+#'    Date: \tab 2020-07-28\cr
 #'    License: \tab MIT\cr
 #'    LazyLoad: \tab yes\cr
 #'  }