diff options
| -rwxr-xr-x | examples/classification.scm | 10 |
1 files changed, 6 insertions, 4 deletions
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)) |