From d9b52a9b66e10adab622100196e86998ff821873 Mon Sep 17 00:00:00 2001 From: eblondel Date: Mon, 14 Feb 2022 15:08:27 +0100 Subject: [PATCH] #9 fix WCSCoverageSpatialDomain xml decoding --- R/WCSCoverageSpatialDomain.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/WCSCoverageSpatialDomain.R b/R/WCSCoverageSpatialDomain.R index 191d1be..f3d49e0 100644 --- a/R/WCSCoverageSpatialDomain.R +++ b/R/WCSCoverageSpatialDomain.R @@ -67,7 +67,7 @@ WCSCoverageSpatialDomain <- R6Class("WCSCoverageSpatialDomain", if(startsWith(serviceVersion, "1.1")){ bboxXML <- getNodeSet(xmlDoc(xmlObj), "//ns:BoundingBox", ns) bboxes <- lapply(bboxXML, function(x){ - return(OWSBoundingBox$new(xmlObj = x, owsVersion = owsVersion, serviceVersion = serviceVersion)) + return(OWSBoundingBox$new(xml = x, owsVersion = owsVersion, serviceVersion = serviceVersion)) }) gridcrs <- NULL gridcrsXML <- getNodeSet(xmlDoc(xmlObj), "//ns:GridCRS", wcsNs)