#39 fix bug in CSW - getRecordById for ISO 19110

eblondel · May 26, 2020 · 2e8ac2a · 2e8ac2a
1 parent a672b14
commit 2e8ac2a
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ows4R
 Version: 0.1-5
-Date: 2020-03-09
+Date: 2020-05-26
 Title: Interface to OGC Web-Services (OWS)
 Authors@R: c(person("Emmanuel", "Blondel", role = c("aut", "cre"), email = "emmanuel.blondel1@gmail.com", comment = c(ORCID = "0000-0002-5870-5762")),
              person("Norbert", "Billet", role = c("ctb")))

diff --git a/R/CSWGetRecordById.R b/R/CSWGetRecordById.R
@@ -96,11 +96,12 @@ CSWGetRecordById <- R6Class("CSWGetRecordById",
           },
           "http://www.isotc211.org/2005/gfc" = {
             out <- NULL
+            print(private$response)
             xmlObjs <- getNodeSet(private$response, "//ns:FC_FeatureCatalogue", c(ns = outputSchema))
             if(length(xmlObjs)>0){
               xmlObj <- xmlObjs[[1]]
               out <- geometa::ISOFeatureCatalogue$new()
-              out$decode(xml = xml)
+              out$decode(xml = xmlObj)
             }
             out
           },

diff --git a/R/ows4R.R b/R/ows4R.R
@@ -16,7 +16,7 @@
 #'    Type: \tab Package\cr
 #'    Version
 #'    : \tab 0.1-5\cr
-#'    Date: \tab 2020-03-09\cr
+#'    Date: \tab 2020-05-26\cr
 #'    License: \tab MIT\cr
 #'    LazyLoad: \tab yes\cr
 #'  }

diff --git a/man/ows4R.Rd b/man/ows4R.Rd