diff options
| author | Munyoki Kilyungi | 2026-01-23 19:45:37 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2026-01-23 19:45:37 +0300 |
| commit | 3af6516ec0a57fb7a47f895f748c376c90d02631 (patch) | |
| tree | 114e1296f67062bc4ef1d9b74e26c8ed36d3df04 /examples | |
| parent | 6fdd6733aa1d51a7a7591254d446300f44e3e8f1 (diff) | |
| download | gn-transform-databases-3af6516ec0a57fb7a47f895f748c376c90d02631.tar.gz | |
Add inbred_set back-links from species.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples')
| -rwxr-xr-x | examples/classification.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/examples/classification.scm b/examples/classification.scm index 571f482..c88ea6a 100755 --- a/examples/classification.scm +++ b/examples/classification.scm @@ -103,6 +103,20 @@ 'taxon: (field Species TaxonomyId))))) +(define-transformer species-fan-out + (tables (InbredSet + (left-join Species "ON InbredSet.SpeciesId=Species.Id"))) + (schema-triples + (gnt:is_species_of a owl:ObjectProperty) + (gnt:is_species_of rdfs:range gnc:set) + (gnt:is_species_of rdfs:domain gnc:species) + (gnt:is_species_of owl:inverseOf gnt:belongs_to_species) + (gnt:is_species_of rdfs:label "this is the species of this resource.") + (gnt:is_species_of skos:definition "Lists all groups that belong to this species")) + (triples (string->identifier "" (remap-species-identifiers (field Species Fullname))) + (set gnt:is_species_of + (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_")))) + (define-transformer inbred-set (tables (InbredSet (left-join Species "ON InbredSet.SpeciesId=Species.Id") @@ -179,6 +193,7 @@ (list classification-scheme-species classification-scheme-set species + species-fan-out inbred-set)) (outputs `(#:documentation ,documentation |