diff options
| author | Pjotr Prins | 2024-01-01 17:47:34 +0100 |
|---|---|---|
| committer | Pjotr Prins | 2024-01-01 17:47:34 +0100 |
| commit | 691eed969ac4bb9fa43358b9a8e0d1ea43accbea (patch) | |
| tree | 69a38708a10b8f525b465332796e636aac9d52e6 /gn/data | |
| parent | 0799806735942cc3d44626c3c8b54402343a47f5 (diff) | |
| download | gn-guile-691eed969ac4bb9fa43358b9a8e0d1ea43accbea.tar.gz | |
Run gemma-wrapper with metadata
Diffstat (limited to 'gn/data')
| -rw-r--r-- | gn/data/dataset.scm | 11 | ||||
| -rw-r--r-- | gn/data/genotype.scm | 2 |
2 files changed, 7 insertions, 6 deletions
diff --git a/gn/data/dataset.scm b/gn/data/dataset.scm index 3d96663..c28cf25 100644 --- a/gn/data/dataset.scm +++ b/gn/data/dataset.scm @@ -1,11 +1,9 @@ (define-module (gn data dataset) - ;; #: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) @@ -16,8 +14,11 @@ dataset-name )) -(define (dataset-name db probesetfreeze-id) +(define (get-dataset db probesetfreeze-id) (dbi-query db (string-append - "select Name2 from ProbeSetFreeze where Id=" (int-to-string probesetfreeze-id) " limit 1;")) - (assoc-ref (get-row db) "Name2")) + "select Name,Name2,FullName from ProbeSetFreeze where Id=" (int-to-string probesetfreeze-id) " limit 1;")) + (get-row db)) + +(define (dataset-name db probesetfreeze-id) + (assoc-ref (get-dataset db probesetfreeze-id) "Name")) diff --git a/gn/data/genotype.scm b/gn/data/genotype.scm index a12deee..c7cb63c 100644 --- a/gn/data/genotype.scm +++ b/gn/data/genotype.scm @@ -1,5 +1,5 @@ (define-module (gn data genotype) - ;; #:use-module (json) + #:use-module (json) #:use-module (ice-9 match) #:use-module (ice-9 format) #:use-module (ice-9 iconv) |