diff options
| author | Munyoki Kilyungi | 2026-02-04 11:18:36 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2026-02-04 11:18:36 +0300 |
| commit | 057ef057673bef1ae0cce88ac70386b87573f83f (patch) | |
| tree | 5b25f8289f4b917b7085367b39d6d95c740fa092 | |
| parent | 9b02f0bf22276bc257a724ea93831f8f813a8e03 (diff) | |
| download | gn-transform-databases-057ef057673bef1ae0cce88ac70386b87573f83f.tar.gz | |
Display the locus as a string.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -rwxr-xr-x | examples/phenotype.scm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/examples/phenotype.scm b/examples/phenotype.scm index 74fee63..c8d0548 100755 --- a/examples/phenotype.scm +++ b/examples/phenotype.scm @@ -149,15 +149,7 @@ #:separator "_"))) (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)) |