aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorPjotr Prins2024-05-08 08:52:34 +0200
committerPjotr Prins2024-05-08 08:52:34 +0200
commitac351e7f5202e8992382e811ba09714a26b3ccd0 (patch)
treebacf8f4f3f2ab326bbdec5a032296b6a9be63261 /scripts
parentd0095f3e90f75b24ea73483037abbe19e76fc838 (diff)
downloadgn-guile-ac351e7f5202e8992382e811ba09714a26b3ccd0.tar.gz
List all traits
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/precompute/list-traits-to-compute.scm11
1 files changed, 10 insertions, 1 deletions
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)
))))