Fix / work-around for #58

EMODnet · Nov 11, 2024 · 7d6dccf · 7d6dccf
1 parent 039fa1f
commit 7d6dccf
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/R/coverage.R b/R/coverage.R
@@ -79,7 +79,8 @@ emdn_get_coverage <- function(wcs = NULL, service = NULL,
                               format = NULL,
                               rangesubset = NULL,
                               filename = NULL,
-                              nil_values_as_na = FALSE) {
+                              nil_values_as_na = FALSE,
+                              check = TRUE) {
   if (is.null(wcs) & is.null(service)) {
     cli::cli_abort(c(
       "x" =
@@ -125,7 +126,7 @@ emdn_get_coverage <- function(wcs = NULL, service = NULL,
       subset = elevation
     )
   }
-  check_cov_contains_bbox(summary, bbox, crs)
+  if (check) check_cov_contains_bbox(summary, bbox, crs)
 
   cli::cli_rule(left = "Downloading coverage {.val {coverage_id}}")
 

diff --git a/R/utils.R b/R/utils.R
@@ -554,6 +554,8 @@ extr_bbox_crs <- function(summary) {
     if (length(crs_parts) == 2) {
       srid <- as.integer(crs_parts[2])
       if (!is.na(srid)) bbox_crs <- sf::st_crs(srid)
+    } else if (startsWith(crs_parts[1], "http://www.opengis.net/def/crs/EPSG/0/")) {
+      bbox_crs <- sf::st_crs(as.integer(gsub("^?.*/", "", crs_parts[1])))
     } else {
       bbox_crs <- sf::st_crs(4326)
     }