#401 support list_concepts

Author: eblondel

R/geoflow_vocabulary.R

@@ -106,6 +106,8 @@ geoflow_skos_vocabulary <- R6Class("geoflow_skos_vocabulary",
 
     #'@description list_collections
     #'@param mimetype mimetype
+    #'@param count_sub_collections count_sub_collections. Default is TRUE
+    #'@param count_concepts count_concepts. Default is TRUE
     #'@return the response of the SPARQL query
     list_collections = function(mimetype = "text/csv", 
                                 count_sub_collections = TRUE,
@@ -137,6 +139,30 @@ geoflow_skos_vocabulary <- R6Class("geoflow_skos_vocabulary",
       return(out)
     },
 
+    #'@description list_concepts
+    #'@param lang lang
+    #'@return the response of the SPARQL query
+    list_concepts = function(lang = "en"){
+      str = paste0("
+        PREFIX skos: <http://www.w3.org/2004/02/skos/core#>
+
+        SELECT ?collection ?collectionLabel ?concept ?prefLabel WHERE {
+          ?collection a skos:Collection .
+          OPTIONAL { ?collection skos:prefLabel ?collectionLabel }
+        
+          ?collection skos:member ?concept .
+          ?concept a skos:Concept .
+          ?concept skos:prefLabel ?prefLabel .
+          
+          FILTER (LANG(?prefLabel) = \"", lang, "\")
+        }
+        ORDER BY ?collection ?concept
+      ")
+      out = self$query(str = str, graphUri = graphUri, mimetype = mimetype)
+      out = out[with(out, order(collection, prefLabel)),]
+      return(out)
+    },
+    
     #'@description query_from_uri
     #'@param uri uri
     #'@param graphUri graphUri