diff --git a/R/info.R b/R/info.R index 1055e56f..eb7ad3e1 100644 --- 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 index 27fb7e25..a00ef1f8 100644 --- 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