From ac351e7f5202e8992382e811ba09714a26b3ccd0 Mon Sep 17 00:00:00 2001 From: Pjotr Prins Date: Wed, 8 May 2024 08:52:34 +0200 Subject: List all traits --- scripts/precompute/list-traits-to-compute.scm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'scripts') diff --git a/scripts/precompute/list-traits-to-compute.scm b/scripts/precompute/list-traits-to-compute.scm index 163e197..6e9dcb3 100755 --- a/scripts/precompute/list-traits-to-compute.scm +++ b/scripts/precompute/list-traits-to-compute.scm @@ -87,7 +87,16 @@ When that is the case we might as well write the phenotype file because we have (query (string-append "SELECT Id,StrainId,value FROM ProbeSetData WHERE " data-ids-query)) ] (display query) + (dbi-query db query) + (let [(id-traits (get-rows-apply db + (lambda (r) + (let [(id (assoc-ref r "Id")) + (strain-id (assoc-ref r "StrainId")) + (value (assoc-ref r "value"))] + `(,id ,strain-id ,value))) + '()))] + (display id-traits)) )) - (run-list-traits-to-compute db 0 50) ;; start precompute + (run-list-traits-to-compute db 0 5) ;; start precompute ;; (write bxd-strains) )))) -- cgit v1.2.3