From 5e6ffc0b3c3720e37389fdaa38e51203c23c0179 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Thu, 29 Jan 2026 18:30:14 +0300 Subject: Delete genotypes. Signed-off-by: Munyoki Kilyungi --- examples/genotype.scm | 61 +++------------------------------------------------ 1 file changed, 3 insertions(+), 58 deletions(-) (limited to 'examples') diff --git a/examples/genotype.scm b/examples/genotype.scm index e2ac782..3b8f385 100755 --- a/examples/genotype.scm +++ b/examples/genotype.scm @@ -15,63 +15,7 @@ -(define-transformer genotypes - (tables (Geno - (left-join Species "USING (SpeciesId)"))) - (schema-triples - (gnt:chr a owl:ObjectProperty) - (gnt:chr skos:description "This resource is located on a given chromosome") - (gnt:chr rdfs:domain gnc:genotype) - (gnt:mb a owl:ObjectProperty) - (gnt:mb skos:definition "The size of this resource in Mb") - (gnt:mb rdfs:domain gnc:genotype) - (gnt:mb_mm8 a owl:ObjectProperty) - (gnt:mb_mm8 skos:definition "TODO") - (gnt:mb_mm8 rdfs:domain gnc:genotype) - (gnt:mb2016 a owl:ObjectProperty) - (gnt:mb2016 skos:definition "TODO") - (gnt:mb2016 rdfs:domain gnc:genotype) - (gnt:has_sequence a owl:ObjectProperty) - (gnt:has_sequence skos:definition "This resource has a given sequence") - (gnt:has_sequence rdfs:domain gnc:genotype) - (gnt:has_source a owl:ObjectProperty) - (gnt:has_source rdfs:domain gnc:genotype) - (gnt:has_source skos:definition "This resource was obtained from this given source") - (gnt:has_alt_source_name a owl:ObjectProperty) - (gnt:has_alt_source_name rdfs:domain gnc:genotype) - (gnt:has_alt_source_name - skos:definition - "The alternative name this resource was obtained from") - (gnt:chr_num a owl:ObjectProperty) - (gnt:chr_num rdfs:domain gnc:genotype) - (gnt:chr_num skos:definition "The chromosome number for this resource")) - (triples - (string->identifier "" (field Geno Name)) - (set rdf:type 'gnc:genotype) - (set rdfs:label (sanitize-rdf-string (field Geno Name))) - (set gnt:chr (field Geno Chr)) - (set gnt:mb (annotate-field - (field ("IFNULL(Geno.Mb, '')" Mb)) '^^xsd:double)) - (set gnt:mb_mm8 (annotate-field (field ("IFNULL(Geno.Mb_mm8, '')" Mb_mm8)) - '^^xsd:double)) - (set gnt:mb2016 - (annotate-field (field ("IFNULL(Geno.Mb_2016, '')" Mb_2016)) - '^^xsd:double)) - (set gnt:has_sequence (field Geno Sequence)) - (set gnt:has_source (field Geno Source)) - ;; Only transform Source2 if it differs from Source - (set gnt:has_alt_source_name - (field ("IF((Source2 = Source), NULL, Source2)" - Source2))) - (set gnt:has_species - (string->identifier "" (remap-species-identifiers (field Species Fullname)) - #:separator "_" - #:proc string-downcase)) - (set gnt:chr_num - (annotate-field - (field Geno chr_num) - '^^xsd:int)) - (set rdfs:comments (field Geno Comments)))) + @@ -102,7 +46,8 @@ ("xkos:" "") ("xsd:" ""))) (inputs - (list genotypes)) + (list + )) (outputs `(#:documentation ,documentation #:rdf ,output)))) -- cgit 1.4.1