fix #385

r-geoflow · May 13, 2024 · deabaa3 · deabaa3
1 parent d277c1d
commit deabaa3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/inst/actions/geometa_create_iso_19115.R b/inst/actions/geometa_create_iso_19115.R
@@ -438,8 +438,9 @@ function(action, entity, config){
   #bounding polygons from data (if any features & 'addfeatures' option is enabled)
   if(!is.null(features) && addfeatures){
     bp <- ISOBoundingPolygon$new()
+    geom_field = colnames(features)[sapply(colnames(features), function(x){is(features[[x]],"sfc")})][1]
     for(i in 1:nrow(features)){
-      geom <- GMLAbstractGeometry$fromSimpleFeatureGeometry(features[i,]$geometry[[1]])
+      geom <- GMLAbstractGeometry$fromSimpleFeatureGeometry(features[i,][geom_field][[1]])
       geom$attrs["gml:id"] <- paste0("fid.",as.character(features[i,][featureid])[1])
       bp$polygon <- c(bp$polygon, geom)
     }