#401 add INRAE thesaurus, + rdf/xml handler

Author: eblondel

R/geoflow_utils.R

@@ -931,13 +931,17 @@ create_object_identification_id = function(prefix, str){
 #'@param child_label child_label
 #'@return a list of relationships
 #'@export
-precompute_relationships <- function(data, parent_key, child_key, child_label) {
+precompute_relationships <- function (data, parent_key, child_key, child_label) {
   ordered_data <- data[order(data[[parent_key]], data[[child_key]]), ]
   relationships <- split(ordered_data[[child_key]], ordered_data[[parent_key]])
   rel_names = names(relationships)
-  relationships <- lapply(relationships, function(x){ 
-      lapply(x, function(x_el){ attr(x_el, "label") = data[data[,child_key] == x_el, child_label][1]; return(x_el) })
-    })
+  relationships <- lapply(relationships, function(x) {
+      lapply(x, function(x_el) {
+          attr(x_el, "label") = data[data[, child_key] == x_el, 
+              child_label][1]
+          return(x_el)
+      })
+  })
   names(relationships) = rel_names
   return(relationships)
 }

R/geoflow_vocabulary.R

@@ -97,6 +97,8 @@ geoflow_skos_vocabulary <- R6Class("geoflow_skos_vocabulary",
               self$rdf = rdflib::rdf_parse(file.path(tempdir(), trg_file))
             }
           )
+        }else if(mime::guess_type(file) == "application/rdf+xml"){
+          self$rdf = rdflib::rdf_parse(file)
         }
       }
     },
@@ -438,6 +440,12 @@ register_vocabularies = function(){
       uri = "https://www.eionet.europa.eu/gemet",
       file = "https://www.eionet.europa.eu/gemet/latest/gemet.rdf.gz"
     ),
+    geoflow_skos_vocabulary$new(
+      id = "inrae",
+      def = "INRAE Thesaurus",
+      uri = "http://opendata.inrae.fr/thesaurusINRAE/thesaurusINRAE",
+      file = "https://forgemia.inra.fr/dipso/thesaurus-inrae/-/raw/main/thesaurusINRAE_skos_2025_04_02_V2.3.rdf"
+    ),
     geoflow_skos_vocabulary$new(
       id = "agrovoc",
       def = "AGROVOC Thesaurus",