From fb22ae84c143a27ddc4699327e8aff6c93a0bf6c Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Fri, 24 Nov 2023 09:07:55 +0100
Subject: Fetch genotype inds from json file

---
 gn/data/genotype.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 gn/data/genotype.scm

(limited to 'gn/data')

diff --git a/gn/data/genotype.scm b/gn/data/genotype.scm
new file mode 100644
index 0000000..c7cb63c
--- /dev/null
+++ b/gn/data/genotype.scm
@@ -0,0 +1,23 @@
+(define-module (gn data genotype)
+  #:use-module (json)
+  #:use-module (ice-9 match)
+  #:use-module (ice-9 format)
+  #:use-module (ice-9 iconv)
+  #:use-module (ice-9 receive)
+  #:use-module (ice-9 string-fun)
+  ;; #:use-module (gn db sparql)
+  #:use-module (dbi dbi)
+  #:use-module (gn db mysql)
+  #:use-module (gn data group)
+  #:use-module (gn util convert)
+
+  #:export (
+            geno-inds-bxd
+            ))
+
+(define (geno-inds-bxd fn)
+  (let [(js (call-with-input-file fn
+              (lambda (port)
+                (json->scm port))))]
+    (vector->list (assoc-ref (car (vector->list (assoc-ref js "genofile"))) "sample_list"))
+))
-- 
cgit v1.2.3