diff options
| author | Munyoki Kilyungi | 2025-12-23 20:06:23 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2026-01-13 12:02:50 +0300 |
| commit | 5fec5c4d6d1c07251b06348a00bb040978b5e9ac (patch) | |
| tree | 41177c39afd7299f9d082e411014e08eb8b4b4a4 /examples/genotype.scm | |
| parent | f96056e48c83cb5d083bdb59dd5d11306bb5ac31 (diff) | |
| download | gn-transform-databases-5fec5c4d6d1c07251b06348a00bb040978b5e9ac.tar.gz | |
Update schema for several transforms.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/genotype.scm')
| -rwxr-xr-x | examples/genotype.scm | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/examples/genotype.scm b/examples/genotype.scm index 257a3fa..0b0cd8e 100755 --- a/examples/genotype.scm +++ b/examples/genotype.scm @@ -46,14 +46,7 @@ (gnt:chr_num rdfs:domain gnc:genotype) (gnt:chr_num skos:definition "The chromosome number for this resource")) (triples - (string->identifier - "" - (regexp-substitute/global - #f "[^A-Za-z0-9:]" - (field Geno Name) - 'pre "_" 'post) - #:separator "_" - #:proc (lambda (x) x)) + (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)) |