From 2704c40510df5bfa2d3490bdb912956bb5e633f1 Mon Sep 17 00:00:00 2001 From: eblondel Date: Tue, 13 Feb 2024 23:28:50 +0100 Subject: [PATCH] fix #123 --- NEWS.md | 4 ++-- R/WCSCoverageSummary.R | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/NEWS.md b/NEWS.md index 77aa65c..8a520c3 100644 --- a/NEWS.md +++ b/NEWS.md @@ -7,16 +7,16 @@ - [#113](https://github.com/eblondel/ows4R/issues/113) WCSGetCoverage- Fix vendor params handling - [#119](https://github.com/eblondel/ows4R/issues/119) WCS Coverage descriptions - patch to rewrite CRS online resources to https - [#120](https://github.com/eblondel/ows4R/issues/120) Service requests under CAS do not work anymore +- [#123](https://github.com/eblondel/ows4R/issues/123) Missing axis labels handling for WCS coverage envelope **New features** - [#116](https://github.com/eblondel/ows4R/issues/116) Support Service exceptions handling - [#117](https://github.com/eblondel/ows4R/issues/117) Support pretty print of R6 objects - **Enhancements** -- [#121](https://github.com/eblondel/ows4R/issues/121) Service exceptions are not always handled in status code 400 +- [#122](https://github.com/eblondel/ows4R/issues/122) Service exceptions are not always handled in status code 400 ## [ows4R 0.3-6](https://github.com/eblondel/ows4R) | [![CRAN_Status_Badge](https://img.shields.io/badge/CRAN-published-blue.svg)](https://github.com/eblondel/ows4R) diff --git a/R/WCSCoverageSummary.R b/R/WCSCoverageSummary.R index 0af38dc..13933fd 100644 --- a/R/WCSCoverageSummary.R +++ b/R/WCSCoverageSummary.R @@ -485,8 +485,8 @@ WCSCoverageSummary <- R6Class("WCSCoverageSummary", if(substr(private$version,1,1)=="2"){ refEnvelope <- self$getDescription()$boundedBy axisLabels <- unlist(strsplit(refEnvelope$attrs$axisLabels, " ")) - axisLatIdx <- which(axisLabels %in% c("Lat", "y", "Y")) - axisLonIdx <- which(axisLabels %in% c("Lon", "Long", "x", "X")) + axisLatIdx <- which(axisLabels %in% c("Lat", "y", "Y", "N")) + axisLonIdx <- which(axisLabels %in% c("Lon", "Long", "x", "X", "E")) if(axisLatIdx < axisLonIdx) bbox <- rbind(bbox[2,],bbox[1,]) envelope <- GMLEnvelope$new(bbox = bbox)