diff options
Diffstat (limited to 'examples/classification.scm')
| -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 |