#9 fix compatibility Lon/long in axis labels

eblondel · Feb 25, 2022 · d0b16c3 · d0b16c3
1 parent 4834fcf
commit d0b16c3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/WCSCoverageSummary.R b/R/WCSCoverageSummary.R
@@ -473,7 +473,7 @@ WCSCoverageSummary <- R6Class("WCSCoverageSummary",
           refEnvelope <- self$getDescription()$boundedBy
           axisLabels <- unlist(strsplit(refEnvelope$attrs$axisLabels, " "))
           axisLatIdx <- which(axisLabels == "Lat")
-          axisLonIdx <- which(axisLabels == "Lon")
+          axisLonIdx <- which(axisLabels %in% c("Lon", "Long"))
           if(axisLatIdx < axisLonIdx) bbox <- rbind(bbox[2,],bbox[1,])
           envelope <- GMLEnvelope$new(bbox = bbox)
           if(as.numeric(refEnvelope$attrs$srsDimension)>2){