aboutsummaryrefslogtreecommitdiff
path: root/gn/data/species.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gn/data/species.scm')
-rw-r--r--gn/data/species.scm10
1 files changed, 9 insertions, 1 deletions
diff --git a/gn/data/species.scm b/gn/data/species.scm
index e06931e..72ab7cf 100644
--- a/gn/data/species.scm
+++ b/gn/data/species.scm
@@ -12,6 +12,7 @@
get-species-meta
get-species-data
get-species-shortnames
+ get-expanded-species
get-expanded-taxon-meta
get-expanded-taxon-data
))
@@ -78,6 +79,13 @@
(return #f)
)))
+
+(define (get-expanded-species)
+ "Here we add information related to each species"
+ (map (lambda (rec)
+ (expand-species rec)
+ ) (get-species)))
+
(define (get-species-api-str)
(scm->json-string #("https://genenetwork.org/api/v2/mouse/"
"https://genenetwork.org/api/v2/rat/")))
@@ -120,5 +128,5 @@
("meta" . ,(mk-meta id))
("data" . ,(mk-data id))
("up" . ,(mk-meta "species"))
- ("links" . ,(get-group-links (gn-species id)))
+ ("links" . "test") ; ,(get-group-links (gn-species id)))
))