From 65ee7ce5c99aeb802152027c43c9285aec3ab9ad Mon Sep 17 00:00:00 2001 From: Pjotr Prins Date: Sun, 7 Jul 2024 14:11:30 +0200 Subject: precompute: adding metadata --- gn/data/hits.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gn') diff --git a/gn/data/hits.scm b/gn/data/hits.scm index 88dee11..a7ba45a 100644 --- a/gn/data/hits.scm +++ b/gn/data/hits.scm @@ -20,20 +20,22 @@ update-precompute! hit-data-id hit-probeset-id + hit-probesetfreeze-id )) (define-record-type - (make-hit data-id probeset-id) + (make-hit data-id probeset-id probesetfreeze-id) hit? (data-id hit-data-id) (probeset-id hit-probeset-id) + (probesetfreeze-id hit-probesetfreeze-id) ) (define (get-precompute-hits db first-id num) (dbi-query db (string-append "select Locus, DataId, ProbeSetId, ProbeSetFreezeId from ProbeSetXRef where DataId>" (int-to-string first-id) " AND Locus_old is NULL ORDER BY DataId LIMIT " (format #f "~d" num))) (map (lambda (r) - (make-hit (assoc-ref r "DataId") (assoc-ref r "ProbeSetId"))) + (make-hit (assoc-ref r "DataId") (assoc-ref r "ProbeSetId") (assoc-ref r "ProbeSetFreezeId"))) (get-rows db '()) )) -- cgit v1.2.3