fix #380

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: geoflow
-Version: 0.20231128
-Date: 2023-11-09
+Version: 0.20240226
+Date: 2024-02-26
 Title: Tools to Orchestrate Geospatial (Meta)Data Management Workflows and Manage FAIR Services
 Description: An engine to facilitate the orchestration and execution of metadata-driven data management workflows, in compliance with FAIR 
   (Findable, Accessible, Interoperable and Reusable) data management principles. By means of a pivot metadata model, relying on the DublinCore standard (<https://dublincore.org/>), 

README.md

@@ -2,7 +2,7 @@
 
 [![Build Status](https://github.com/r-geoflow/geoflow/actions/workflows/r-cmd-check.yml/badge.svg?branch=master)](https://github.com/r-geoflow/geoflow/actions/workflows/r-cmd-check.yml)
 [![CRAN_Status_Badge](http://www.r-pkg.org/badges/version/geoflow)](https://cran.r-project.org/package=geoflow)
-[![Github_Status_Badge](https://img.shields.io/badge/Github-0.20231128-blue.svg)](https://github.com/r-geoflow/geoflow)
+[![Github_Status_Badge](https://img.shields.io/badge/Github-0.20240226-blue.svg)](https://github.com/r-geoflow/geoflow)
 [![DOI](https://zenodo.org/badge/DOI//10.5281/zenodo.3138920.svg)](https://doi.org//10.5281/zenodo.3138920)
 
 **R engine to orchestrate and run (meta)data workflows**

inst/actions/geosapi_publish_ogc_services.R

@@ -429,6 +429,7 @@ function(action, entity, config){
           }
         }
         GS$reload()
+        gs_styles <- GS$getStyleNames()
       }
 
       #layer build and publication
@@ -439,7 +440,9 @@ function(action, entity, config){
                if(length(data_object$styles)>0){
                  for(i in 1:length(data_object$styles)){
                    style <- data_object$styles[[i]]
-                   if(i==1) layer$setDefaultStyle(style) else layer$addStyle(style)
+                   if(style %in% gs_styles){
+                    if(i==1) layer$setDefaultStyle(style) else layer$addStyle(style)
+                   }
                  }
                }else{
                  if(entity$identifiers[["id"]] %in% gs_styles){
@@ -474,7 +477,9 @@ function(action, entity, config){
                    layer$styles <- list()
                    for(i in 1:length(data_object$styles)){
                      style <- data_object$styles[[i]]
-                     if(i==1) layer$setDefaultStyle(style) else layer$addStyle(style)
+                     if(style %in% gs_styles){
+                      if(i==1) layer$setDefaultStyle(style) else layer$addStyle(style)
+                     }
                    }
                  }else{
                    if(entity$identifiers[["id"]] %in% gs_styles){