aboutsummaryrefslogtreecommitdiff
path: root/gn/data
diff options
context:
space:
mode:
authorPjotr Prins2024-07-07 14:11:30 +0200
committerPjotr Prins2024-07-07 14:11:30 +0200
commit65ee7ce5c99aeb802152027c43c9285aec3ab9ad (patch)
tree9760f7a2cfe33d2f3d0474fd3127340d0871c7ce /gn/data
parent3fcc0a58f6a4ad3f86e0e8c96b58ad8bc179b3cf (diff)
downloadgn-guile-65ee7ce5c99aeb802152027c43c9285aec3ab9ad.tar.gz
precompute: adding metadata
Diffstat (limited to 'gn/data')
-rw-r--r--gn/data/hits.scm6
1 files changed, 4 insertions, 2 deletions
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 <hit>
- (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 '())
))