#401 get_concepts_hierarchy

Author: eblondel

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(add_config_utils)
+export(build_hierarchical_list)
 export(check_packages)
 export(closeWorkflow)
 export(create_geoflow_data_from_dbi)

R/geoflow_utils.R

@@ -916,4 +916,28 @@ describeOGCRelation <- function(entity, data_object, service, download = FALSE,
 #'@export
 create_object_identification_id = function(prefix, str){
   paste(prefix, digest::digest(object = str, algo = "crc32", serialize = FALSE), sep = "_")
+}
+
+#'@name build_hierarchical_list
+#'@aliases build_hierarchical_list
+#'@title build_hierarchical_list
+#'
+#'@usage build_hierarchical_list(data, parent)
+#'
+#'@param data data
+#'@param parent parent
+#'@return a hierarchical list
+#'@export
+build_hierarchical_list <- function(data, parent, parent_key, child_key) {
+  children <- data[data[,parent_key] == parent, ]
+  children <- children[order(children[,child_key]),]
+  if (nrow(children) == 0) {
+    return(NULL)
+  } else {
+    nested_list <- lapply(1:nrow(children), function(i) {
+      build_vocabulary_hierarchical_list(data, children[i, child_key])
+    })
+    names(nested_list) <- children[,child_key]
+    return(nested_list)
+  }
 }

R/geoflow_vocabulary.R

@@ -139,6 +139,40 @@ geoflow_skos_vocabulary <- R6Class("geoflow_skos_vocabulary",
       return(out)
     },
 
+    #'@description list_concepts
+    #'@param lang lang
+    #'@param mimetype mimetype
+    #'@param out_format output format (data.frame or list). Default is "data.frame"
+    #'@return the response of the SPARQL query
+    get_concepts_hierarchy = function(lang = "en", mimetype = "text/csv",
+                                      out_format = c("data.frame","list")){
+      out_format = match.arg(out_format)
+      str = paste0("
+        PREFIX skos: <http://www.w3.org/2004/02/skos/core#>
+
+        SELECT ?broaderConcept ?broaderPrefLabel ?concept ?prefLabel WHERE {
+            ?concept a skos:Concept .
+            OPTIONAL { 
+                ?concept skos:prefLabel ?prefLabel .
+                FILTER (LANG(?prefLabel) = \"",lang,"\")
+            }
+            OPTIONAL { 
+                ?concept skos:broader ?broaderConcept .
+                OPTIONAL { 
+                    ?broaderConcept skos:prefLabel ?broaderPrefLabel .
+                    FILTER (LANG(?broaderPrefLabel) = \"",lang,"\")
+                }
+            }
+        }
+        ORDER BY ?concept
+      ")
+      out = self$query(str = str, mimetype = mimetype)
+      if(out_format == "list"){
+        out = build_hierarchical_list(out, parent = "root", parent_key = "broaderPrefLabel", child_key = "prefLabel")
+      }
+      return(out)
+    },
+    
     #'@description list_concepts
     #'@param lang lang
     #'@param mimetype mimetype