From 5fec5c4d6d1c07251b06348a00bb040978b5e9ac Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Tue, 23 Dec 2025 20:06:23 +0300 Subject: Update schema for several transforms. Signed-off-by: Munyoki Kilyungi --- examples/phenotype.scm | 16 +++------------- 1 file changed, 3 insertions(+), 13 deletions(-) (limited to 'examples/phenotype.scm') diff --git a/examples/phenotype.scm b/examples/phenotype.scm index 1bec264..5a118b8 100755 --- a/examples/phenotype.scm +++ b/examples/phenotype.scm @@ -56,14 +56,12 @@ "trait" (field ("CONCAT(IFNULL(InbredSet.InbredSetCode, PublishXRef.InbredSetId), '_', PublishXRef.Id)" Phenotype)) - #:separator "_" - #:proc (lambda (x) x)) + #:separator "_") (set rdf:type 'gnc:phenotype) (set gnt:belongs_to_group (string->identifier "set" (field InbredSet Name InbredSetName) - #:separator "_" - #:proc string-capitalize-first)) + #:separator "_")) ;; This is the trait's name (set gnt:trait_id (let ((trait-id (field PublishXRef Id))) @@ -85,15 +83,7 @@ (set dct:contributor (sanitize-rdf-string (field Phenotype Owner))) (set gnt:mean (annotate-field (field ("IFNULL(PublishXRef.mean, '')" mean)) '^^xsd:double)) - (set gnt:locus - (string->identifier - "" - (regexp-substitute/global - #f "[^A-Za-z0-9:]" - (sanitize-rdf-string (field PublishXRef Locus)) - 'pre "_" 'post) - #:separator "" - #:proc string-capitalize-first)) + (set gnt:locus (sanitize-rdf-string (field PublishXRef Locus))) (set gnt:lod_score (annotate-field (field ("IFNULL((PublishXRef.LRS/4.604), '')" lrs)) '^^xsd:double)) -- cgit 1.4.1