default asDataFrame for featuretype/featuremember (required for geoflow-shiny)

Author: eblondel

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: geoflow
-Version: 0.9999.20250522
+Version: 0.9999.20250622
 Date: 2025-05-22
 Title: 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 

R/geoflow_featuremember.R

@@ -18,7 +18,7 @@ geoflow_featuremember <- R6Class("geoflow_featuremember",
      #'@field id feature member ID
      id = NULL,
      #'@field type feature member type
-     type = list(),
+     type = NULL,
      #'@field code feature member code
      code = NULL,
      #'@field name feature member name
@@ -35,6 +35,8 @@ geoflow_featuremember <- R6Class("geoflow_featuremember",
      uom = NULL,
      #'@field registerId feature member register ID
      registerId = NULL,
+     #'@field registerScript feature member register script
+     registerScript = NULL,
 
      #'@description Initializes a \link{geoflow_featuremember}
      #'@param type type
@@ -46,9 +48,10 @@ geoflow_featuremember <- R6Class("geoflow_featuremember",
      #'@param maxOccurs maxOccurs. Default is \code{NULL}
      #'@param uom unit of measure. Default is \code{NULL}
      #'@param registerId ID of the register associated to the feature type. Default is \code{NULL}
-     initialize = function(type, code, name, def, defSource = NULL,
+     #'@param registerScript source script providing the register functions. Default is \code{NULL}
+     initialize = function(type = "attribute", code = NULL, name = NULL, def = NULL, defSource = NULL,
                            minOccurs = NULL, maxOccurs = NULL, uom = NULL,
-                           registerId = NULL){
+                           registerId = NULL, registerScript = NULL){
        if(!(type %in% c("attribute", "variable") | startsWith(type, "gml:"))){
          stop("The member type should be either 'attribute' or 'variable' or be a GML geometry type")
        }
@@ -62,6 +65,25 @@ geoflow_featuremember <- R6Class("geoflow_featuremember",
        self$maxOccurs = maxOccurs
        self$uom = uom
        self$registerId = registerId
+       self$registerScript = registerScript
+     },
+     
+     #'@description Converts as data.frame
+     #'@return an object of class \link{data.frame}
+     asDataFrame = function(){
+       return(data.frame(
+         MemberCode = if(!is.null(self$code)) self$code else "",
+         MemberName = if(!is.null(self$name)) self$name else "",
+         MemberType = if(!is.null(self$type)) self$type else "",
+         MinOccurs = if(!is.null(self$minOccurs)) self$minOccurs else "",
+         MaxOccurs = if(!is.null(self$maxOccurs)) self$maxOccurs else "",
+         Definition = if(!is.null(self$def)) self$def else "",
+         DefinitionSource = if(!is.null(self$defSource)) self$defSource else "",
+         MeasurementUnit = if(!is.null(self$uom)) self$uom else "",
+         registerId = if(!is.null(self$registerId)) self$registerId else "",
+         registerScript = if(!is.null(self$registerScript)) self$registerScript else "",
+         stringsAsFactors = F
+       ))
      }
    )                                  
 )

R/geoflow_featuretype.R

@@ -53,6 +53,34 @@ geoflow_featuretype <- R6Class("geoflow_featuretype",
         if(length(members)>0) out <- members[[1]]
       }
       return(out)
+    },
+    
+    #'@description Converts to data frame
+    #'@return an object of class \link{data.frame}
+    asDataFrame = function(){
+      if(length(self$members)==0){
+        return(data.frame(
+          FeatureType = if(!is.null(self$id)) self$id else "",
+          MemberCode = "",
+          MemberName = "",
+          MemberType = "",
+          MinOccurs = "",
+          MaxOccurs = "",
+          Definition = "",
+          DefinitionSource = "",
+          MeasurementUnit = "",
+          Register = "",
+          RegisterScript = "",
+          stringsAsFactors = F
+        ))
+      }else{
+        return(cbind(
+          FeatureType = if(!is.null(self$id)) self$id else "",
+          do.call("rbind", lapply(self$members, function(x){
+            x$asDataFrame()
+          }))
+        ))
+      }
     }
   )                                  
 )

inst/metadata/dictionary/dictionary_handler_df.R

@@ -62,7 +62,8 @@ handle_dictionary_df <- function(handler, source, config){
         name = memberName, #i18n support
         def = memberDef, #i18n support
         defSource = defSource,
-        registerId = ftm$RegisterId
+        registerId = ftm$RegisterId,
+        registerScript = ftm$RegisterScript
       )
       if(!is.null(ftm$MinOccurs)) member$minOccurs <- ftm$MinOccurs
       if(!is.null(ftm$MaxOccurs)) member$maxOccurs <- ftm$MaxOccurs