#401 query_from_term for rdf dataset

eblondel · eblondel · commit 70c07a38102b · 2025-04-11T21:33:57.000+02:00
diff --git a/R/geoflow_vocabulary.R b/R/geoflow_vocabulary.R
@@ -373,6 +373,9 @@ geoflow_skos_vocabulary <- R6Class("geoflow_skos_vocabulary",
                               self$rdf_data$p == "http://www.w3.org/2004/02/skos/core#prefLabel",]
         rec = rec[,c("s", "lang", "o")]
         colnames(rec) = c("concept", "lang", "prefLabel")
+        if(nrow(rec)>0){
+          rec = self$query_from_uri(uri = rec[1,]$concept)
+        }
         return(rec)
       }
       

Original file line number	Diff line number	Diff line change
`@@ -373,6 +373,9 @@ geoflow_skos_vocabulary <- R6Class("geoflow_skos_vocabulary",`
`373`	`373`	`self$rdf_data$p == "http://www.w3.org/2004/02/skos/core#prefLabel",]`
`374`	`374`	`rec = rec[,c("s", "lang", "o")]`
`375`	`375`	`colnames(rec) = c("concept", "lang", "prefLabel")`
	`376`	`+ if(nrow(rec)>0){`
	`377`	`+ rec = self$query_from_uri(uri = rec[1,]$concept)`
	`378`	`+ }`
`376`	`379`	`return(rec)`
`377`	`380`	`}`
`378`	`381`