From 1ea6e2dd7655788e198dc13695c829287132498f Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Fri, 15 Dec 2023 21:38:24 +0300 Subject: Preserve gene symbol case when used as an identifer. Genes with varying casing (e.g., Shh, SHH) result in `string->identifier` capitalizing the first letter by default. This creates inconsistencies in gene symbols, leading to different predicates and objects for the same entity, introducing errors. Signed-off-by: Munyoki Kilyungi --- examples/strains.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'examples/strains.scm') diff --git a/examples/strains.scm b/examples/strains.scm index 4e62b49..b4e2a56 100755 --- a/examples/strains.scm +++ b/examples/strains.scm @@ -88,9 +88,11 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used. (set gnt:alias (sanitize-rdf-string (field ("IF ((Strain.Alias != Strain.Name), Strain.Alias, '')" Alias)))) (set gnt:symbol (string->identifier - "gene" (regexp-substitute/global #f "[^A-Za-z0-9:]" - (field Strain Symbol) - 'pre "_" 'post))))) + "gene" + (regexp-substitute/global #f "[^A-Za-z0-9:]" + (field Strain Symbol) + 'pre "_" 'post) + #:proc (lambda (x) x))))) (define-transformer mapping-method (tables (MappingMethod)) -- cgit v1.2.3