From 3af6516ec0a57fb7a47f895f748c376c90d02631 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Fri, 23 Jan 2026 19:45:37 +0300 Subject: Add inbred_set back-links from species. Signed-off-by: Munyoki Kilyungi --- examples/classification.scm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'examples/classification.scm') 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 -- cgit 1.4.1