diff options
| author | Munyoki Kilyungi | 2026-01-29 23:59:36 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2026-01-29 23:59:36 +0300 |
| commit | 60cfff731469d7fd7e7ae521687129b650d6a738 (patch) | |
| tree | 2d9a60bdd075f2429a828c25406a2f3b54cd56d4 /examples/datasets.scm | |
| parent | e918c68c68eec1451673c004135bcd435628e9ce (diff) | |
| download | gn-transform-databases-60cfff731469d7fd7e7ae521687129b650d6a738.tar.gz | |
Move gnt:has_strain for datasets to datasets.scm.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/datasets.scm')
| -rwxr-xr-x | examples/datasets.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/examples/datasets.scm b/examples/datasets.scm index d8b3a00..8abb84f 100755 --- a/examples/datasets.scm +++ b/examples/datasets.scm @@ -16,7 +16,8 @@ (define-transformer gn:dataset->metadata (tables (Datasets - (inner-join InfoFiles "ON InfoFiles.DatasetId = Datasets.DatasetId")) + (inner-join InfoFiles "ON InfoFiles.DatasetId = Datasets.DatasetId") + (inner-join InbredSet "ON InbredSet.Id = InfoFiles.InbredSetId")) ;; Skip monkey datasets "WHERE InfoFiles.InfoPageName NOT LIKE 'INIA_MacFas_%'" "GROUP BY Datasets.DatasetId") @@ -72,6 +73,8 @@ (set rdf:type 'dcat:Dataset) (set dct:title (normalize-string-field (field InfoFiles InfoPageName))) (set dct:identifier (format #f "GN~a" (field InfoFiles GN_AccesionId))) + (set gnt:has_strain + (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_")) (set gnt:has_experiment_type (let ((experiment-type (field InfoFiles Experiment_Type))) |