aboutsummaryrefslogtreecommitdiff
path: root/gn/data/strains.scm
diff options
context:
space:
mode:
authorPjotr Prins2024-05-05 13:35:33 +0200
committerPjotr Prins2024-05-05 13:35:33 +0200
commita1511cae7937ea60abdaf56e759f1066c2e83b13 (patch)
treed589baa53aaa4ce769da123197cb1a959f210fa7 /gn/data/strains.scm
parente192578a501d09f2405db41a6ca541eb57db3368 (diff)
downloadgn-guile-a1511cae7937ea60abdaf56e759f1066c2e83b13.tar.gz
List data-ids (trait ids) for a batch
Diffstat (limited to 'gn/data/strains.scm')
-rw-r--r--gn/data/strains.scm12
1 files changed, 7 insertions, 5 deletions
diff --git a/gn/data/strains.scm b/gn/data/strains.scm
index 39fe71e..f1348ac 100644
--- a/gn/data/strains.scm
+++ b/gn/data/strains.scm
@@ -17,21 +17,23 @@
bxd-strain-id-names
))
-(define* (strain-id-names inbred-set #:key (map? #f))
+(define* (strain-id-names inbred-set #:key (used-for-mapping? #f))
"Return assoc list of tuples of strain id+names:
((4 . BXD1) (5 . BXD2) (6 . BXD5) (7 . BXD6)...
-map? will say whether the strains/individuals are used for mapping.
+used-for-mapping? will say whether the strains/individuals are used for mapping.
"
(call-with-db
(lambda (db)
(dbi-query db (string-append "SELECT StrainId,Strain.Name FROM Strain, StrainXRef WHERE StrainXRef.StrainId = Strain.Id AND StrainXRef.InbredSetId = " (int-to-string inbred-set)
- (if map?
+ (if used-for-mapping?
" AND Used_for_mapping='Y'"
"")
" ORDER BY StrainId;"))
(get-rows-apply db (lambda (r) `(,(assoc-ref r "StrainId") . ,(assoc-ref r "Name"))) '()))))
-(define* (bxd-strain-id-names #:key (map? #f))
- "Return assoc list of tuples of strain id + names. Same as strain-id-names, but just for the BXD"
+(define* (bxd-strain-id-names #:key (used-for-mapping? #f))
+ "Return assoc list of tuples of strain id + names. Same as strain-id-names, but just for the BXD
+
+used-for-mapping? will say whether the strains/individuals are used for mapping."
(strain-id-names 1))