fix: refactor guess_layer_format() for more robustness

EMODnet · Feb 28, 2024 · 805e8ee · 805e8ee
1 parent cbf220c
commit 805e8ee
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/info.R b/R/info.R
@@ -117,7 +117,7 @@ get_abstract_null <- function(x) {
 }
 
 guess_layer_format <- function(layer) {
-  if (any(layer$getDescription(pretty = TRUE)[["geometry"]])) {
+  if (!is.null(layer$getGeometryType())) {
     "sf"
   } else {
     "data.frame"

diff --git a/tests/testthat/_snaps/client.md b/tests/testthat/_snaps/client.md
@@ -1,6 +1,6 @@
 # Error when wrong service
 
-    Assertion on 'service' failed: Must be element of set {'bathymetry','biology','biology_occurrence_data','chemistry_cdi_data_discovery_and_access_service','chemistry_cdi_distribution_observations_per_category_and_region','chemistry_marine_litter','geology_coastal_behavior','geology_events_and_probabilities','geology_marine_minerals','geology_sea_floor_bedrock','geology_seabed_substrate_maps','geology_submerged_landscapes','human_activities','seabed_habitats_general_datasets_and_products','seabed_habitats_individual_habitat_map_and_model_datasets'}, but is 'blop'.
+    Assertion on 'service' failed: Must be element of set {'bathymetry','biology','biology_occurrence_data','chemistry_cdi_data_discovery_and_access_service','chemistry_cdi_distribution_observations_per_category_and_region','chemistry_marine_litter','geology_coastal_behavior','geology_events_and_probabilities','geology_marine_minerals','geology_sea_floor_bedrock','geology_seabed_substrate_maps','geology_submerged_landscapes','human_activities','physics','seabed_habitats_general_datasets_and_products','seabed_habitats_individual_habitat_map_and_model_datasets'}, but is 'blop'.
 
 # Services down handled