diff options
| author | Munyoki Kilyungi | 2026-01-26 14:49:15 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2026-01-26 14:49:15 +0300 |
| commit | 9af3561a53d1dd74f1d72de5b35548fc0adabdf9 (patch) | |
| tree | 25c125ade4fe944cd64ac7e25d48752b98e9cecd /examples/classification.scm | |
| parent | 93d8bd745d24de538c075caf7920bab02bbcce23 (diff) | |
| download | gn-transform-databases-9af3561a53d1dd74f1d72de5b35548fc0adabdf9.tar.gz | |
Only export InbredSet where public > 0.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/classification.scm')
| -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)) |