diff options
Diffstat (limited to 'examples/probeset.scm')
| -rwxr-xr-x | examples/probeset.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/examples/probeset.scm b/examples/probeset.scm index 24c09c7..92c6a2a 100755 --- a/examples/probeset.scm +++ b/examples/probeset.scm @@ -79,7 +79,12 @@ (set gnt:hasTargetId (field ("NULLIF(TRIM(ProbeSet.TargetId), '')" TargetId))) - (set gnt:symbol (field ProbeSet Symbol)) + (set gnt:symbol + (string->identifier + "gene" (regexp-substitute/global #f "[^A-Za-z0-9:]" + (field ProbeSet Symbol) + 'pre "_" 'post) + #:proc (lambda (x) x))) (set dct:description (sanitize-rdf-string (field ProbeSet description))) (set gnt:targetsRegion (sanitize-rdf-string |