From 9af3561a53d1dd74f1d72de5b35548fc0adabdf9 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Mon, 26 Jan 2026 14:49:15 +0300 Subject: Only export InbredSet where public > 0. Signed-off-by: Munyoki Kilyungi --- examples/classification.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'examples/classification.scm') diff --git a/examples/classification.scm b/examples/classification.scm index ddf4775..7a01869 100755 --- a/examples/classification.scm +++ b/examples/classification.scm @@ -60,7 +60,8 @@ (string->identifier "" (remap-species-identifiers (field Species Fullname)))))) (define-transformer classification-scheme-set - (tables (InbredSet)) + (tables (InbredSet) + "WHERE public > 0") (schema-triples (gnc:set a xkos:ClassificationLevel) (gnc:set skos:inScheme gnc:resource_classification_scheme) @@ -105,7 +106,8 @@ (define-transformer species-fan-out (tables (InbredSet - (left-join Species "ON InbredSet.SpeciesId=Species.Id"))) + (left-join Species "ON InbredSet.SpeciesId=Species.Id")) + "WHERE public > 0") (schema-triples (gnt:has_strain a owl:ObjectProperty) (gnt:has_strain rdfs:range gnc:set) @@ -121,7 +123,8 @@ (tables (InbredSet (left-join Species "ON InbredSet.SpeciesId=Species.Id") (left-join MappingMethod - "ON InbredSet.MappingMethodId=MappingMethod.Id"))) + "ON InbredSet.MappingMethodId=MappingMethod.Id")) + "WHERE public > 0") (schema-triples (gnt:genetic_type a owl:DatatypeProperty) (gnt:genetic_type rdfs:label "has genetic type") @@ -151,7 +154,6 @@ (set rdfs:label (field InbredSet FullName)) (set skos:prefLabel (field InbredSet Name InbredSetName)) (set gnt:genetic_type (field InbredSet GeneticType)) - (set gnt:has_family (field InbredSet Family)) (set gnt:uses_mapping_method (string->identifier "mapping_method" (field MappingMethod Name) #:separator "_")) (set gnt:has_set_code (field InbredSet InbredSetCode)) -- cgit 1.4.1