make CRS parsing fail silently #115

eblondel · Jan 23, 2024 · 3d10fe6 · 3d10fe6
1 parent b9ae189
commit 3d10fe6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/WCSCoverageSummary.R b/R/WCSCoverageSummary.R
@@ -225,7 +225,7 @@ WCSCoverageSummary <- R6Class("WCSCoverageSummary",
           self$ERROR("No 'srsName' envelope attribute for CRS interpretation")
           return(NULL)
         }
-        srsNameXML <- try(XML::xmlParse(srsName))
+        srsNameXML <- try(XML::xmlParse(srsName), silent = TRUE)
         if(is(srsNameXML,"try-error")){
           self$ERROR(sprintf("Error during CRS interpretation for srsName = '%s'", srsName))
           return(NULL)