diff options
| author | Munyoki Kilyungi | 2026-01-26 15:20:56 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2026-01-26 15:20:56 +0300 |
| commit | 296e3208c92a22b2e7cc994618eddab73bc6abdc (patch) | |
| tree | c6b5057535a53e0bf0b1c5c12ba8a9aa45ac9897 /examples/classification.scm | |
| parent | f3d93fe801b057be02457d80dccf9aba085d60e9 (diff) | |
| download | gn-transform-databases-296e3208c92a22b2e7cc994618eddab73bc6abdc.tar.gz | |
Add inbredset fanout.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/classification.scm')
| -rwxr-xr-x | examples/classification.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/examples/classification.scm b/examples/classification.scm index 1fe1504..d94276a 100755 --- a/examples/classification.scm +++ b/examples/classification.scm @@ -191,6 +191,12 @@ (set gnt:has_species (string->identifier "" (remap-species-identifiers (field Species Fullname)))))) +(define-transformer inbredset-families-fanout + (tables (InbredSet) + "WHERE Family IS NOT NULL") + (triples (string->identifier "family" (field InbredSet Family) #:separator "_") + (set gnt:has_strain (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_")))) + (let* ((option-spec @@ -231,7 +237,8 @@ inbred-set species-families inbredset-families - species-families-fanout)) + species-families-fanout + inbredset-families-fanout)) (outputs `(#:documentation ,documentation #:rdf ,output)))) |