1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
(define-module (gn data species)
#:use-module (json)
#:use-module (ice-9 match)
#:use-module (ice-9 format)
#:use-module (ice-9 iconv)
#:use-module (ice-9 receive)
#:use-module (ice-9 string-fun)
#:use-module (gn db sparql)
#:use-module (web gn-uri)
#:export (
get-species-meta
get-species-data
get-species-shortnames
get-expanded-taxon-meta
get-expanded-taxon-data
))
(define (get-species)
(receive (names res) (memo-sparql-species-meta)
(let* ([table (get-rows names res)]
[recs '()]
[h (compile-species recs table)])
(species-digest h))
))
;; result should be a vector of list of pair
(define (species-digest recs)
(map (lambda (r)
(let* ([k (car r)]
[v (cdr r)])
; with key use (cons k (map (lambda (i) (cons (car i) (car (cdr i)))) v))
(map (lambda (i) (cons (url-parse-id (car i)) (car (cdr i)))) v)
))
recs )
)
(define (expand-species rec)
(let ([wd-id (url-parse-id (assoc-ref rec "22-rdf-syntax-ns#isDefinedBy"))]
[short-name (normalize-id (assoc-ref rec "shortName"))])
(if (string=? wd-id "unknown")
rec
; wikidata query:
(receive (names row) (tsv->scm (memo-sparql-wd-species-info wd-id))
(match (pk (car row))
((taxonomy-name ncbi descr)
(let ([ncbi-id (strip-lang ncbi)]
[taxonomy-lnk (string-replace-substring (strip-lang taxonomy-name) " " "_")])
(cons `("id" . ,short-name)
(cons `("wikidata" . ,wd-id)
(cons `("taxonomy-id" . ,ncbi-id)
(cons `("ncbi-url" . ,(string-append "https://www.ncbi.nlm.nih.gov/Taxonomy/Browser/wwwtax.cgi?mode=Info&id=" ncbi-id))
(cons `("uniprot-url" . ,(string-append "https://www.uniprot.org/taxonomy/" ncbi-id))
(cons `("wikidata-url" . ,(string-append "http://www.wikidata.org/entity/" wd-id))
(cons `("wikispecies-url" . ,(string-append "https://species.wikimedia.org/wiki/" taxonomy-lnk))
(cons `("taxonomy-name" . ,(strip-lang taxonomy-name))
(cons `("meta" . ,(mk-meta short-name))
(cons `("description" . ,(strip-lang descr))
rec))))))))))))
)
)))
)
(define (get-expanded-species)
"Here we add information related to each species"
(map (lambda (rec)
(expand-species rec)
) (get-species)
))
(define (get-expanded-taxon-data short-name)
"Here we add information related to one taxonomy species"
(call/cc (lambda (return)
(for-each (lambda (rec)
(if (string=? (assoc-ref rec "shortName") short-name)
(return (expand-species rec))))
(get-species))
(return #f)
)))
(define (get-species-api-str)
(scm->json-string #("https://genenetwork.org/api/v2/mouse/"
"https://genenetwork.org/api/v2/rat/")))
(define (get-species-shortnames recs)
(map (lambda r (assoc-ref (car r) "shortName")) recs))
(define (get-species-meta2 recs)
"Return a list of short names and expand them to URIs"
(map (lambda r
(let ([shortname (assoc-ref (car r) "shortName")])
(cons shortname (mk-meta shortname)))) recs)
)
(define (get-species-links recs)
"Return a list of short names and expand them to URIs"
(map (lambda r
(let ([shortname (assoc-ref (car r) "shortName")])
(cons shortname (mk-data shortname)))) recs)
)
(define (get-species-data)
(list->vector (get-expanded-species)))
(define (get-species-meta)
(let ([recs (get-expanded-species)])
`(("info" . "Get information on species by visiting the data link or one of the individual links")
("doc" . ,(mk-doc "species"))
("meta" . ,(mk-meta "species"))
("data" . ,(mk-data "species"))
("up" . ,(string-append (prefix) "/"))
("meta-links" . ,(get-species-meta2 recs))
("links" . ,(get-species-links recs)))))
(define (get-expanded-taxon-meta id)
"Get information on a specific species, e.g. mouse"
`(("info" . ,id)
("doc" . ,(mk-doc id))
("meta" . ,(mk-meta id))
("data" . ,(mk-data id))
("up" . ,(mk-meta "species"))
))
|
