From 32d4b0c0bb60723d4fcaa61d85d97ecba37ecb5b Mon Sep 17 00:00:00 2001 From: Pjotr Prins Date: Wed, 16 Jul 2025 10:08:00 +0200 Subject: Aliases - add example --- gn/db/sparql.scm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'gn/db/sparql.scm') diff --git a/gn/db/sparql.scm b/gn/db/sparql.scm index 86d163f..bc2bb29 100644 --- a/gn/db/sparql.scm +++ b/gn/db/sparql.scm @@ -179,12 +179,15 @@ SELECT DISTINCT ?taxon ?ncbi ?descr where { (memoize sparql-wd-geneids)) (define (sparql-wd-gene-aliases geneids) - (let ([geneid (car geneids)]) - (receive (type values) - (tsv->scm (sparql-tsv (wd-sparql-endpoint-url) (wikidata-query-gene-aliases geneid))) - (map (lambda (item) (car item)) values) ;; flatten list)) + "Returns a flattened and dedpulicated list of geneids with +(sparql-wd-gene-aliases '(\"Q14860079\" \"Q24420953\")) +" + (map (lambda (geneid) + (receive (type values) + (tsv->scm (sparql-tsv (wd-sparql-endpoint-url) (wikidata-query-gene-aliases (pk geneid)))) + (map (lambda (item) (car item)) values) ;; flatten list)) ) - )) + ) geneids)) #! gn:Mus_musculus rdf:type gnc:species . -- cgit v1.2.3