From 3f2a01394dd452a51ac0a4ba33ee9fa7731f0bfe Mon Sep 17 00:00:00 2001 From: eblondel Date: Wed, 23 Feb 2022 17:20:04 +0100 Subject: [PATCH] #9 bbox support for WCS 1.0 --- R/WCSCoverageSummary.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/R/WCSCoverageSummary.R b/R/WCSCoverageSummary.R index 7a23dcf..3b48476 100644 --- a/R/WCSCoverageSummary.R +++ b/R/WCSCoverageSummary.R @@ -407,7 +407,7 @@ WCSCoverageSummary <- R6Class("WCSCoverageSummary", if(endsWith(crs, "EPSG::4326")){ xorder <- 2; yorder <- 1; } - OWSUtils$toBBOX(owsbbox$LowerCorner[xorder], owsbbox$UpperCorner[xorder], owsbbox$LowerCorner[yorder], owsbbox$UpperCorner[yorder]) + GMLEnvelope$new(bbox = OWSUtils$toBBOX(owsbbox$LowerCorner[xorder], owsbbox$UpperCorner[xorder], owsbbox$LowerCorner[yorder], owsbbox$UpperCorner[yorder])) }, "2.0" = { env <- self$getDescription()$boundedBy @@ -428,7 +428,9 @@ WCSCoverageSummary <- R6Class("WCSCoverageSummary", } ) }else{ - if(substr(private$version,1,3) == "1.1"){ + if(substr(private$version,1,3) == "1.0"){ + envelope <- bbox + }else if(substr(private$version,1,3) == "1.1"){ envelope <- GMLEnvelope$new(bbox = bbox) } if(substr(private$version,1,3)=="2.0"){