diff options
author | Munyoki Kilyungi | 2023-08-15 20:21:57 +0300 |
---|---|---|
committer | Munyoki Kilyungi | 2023-08-15 20:21:57 +0300 |
commit | 694af8dfb7be8f06556109c3b4f58523943124af (patch) | |
tree | 73295872d5eb104ae16300c8fbae7f70192560c1 /examples/dump-probeset.scm | |
parent | a1c634f5208b93edbde3d27a83ff60bc5dab8ca8 (diff) | |
download | gn-transform-databases-694af8dfb7be8f06556109c3b4f58523943124af.tar.gz |
Add "probeset_" prefix to probesets
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/dump-probeset.scm')
-rwxr-xr-x | examples/dump-probeset.scm | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/examples/dump-probeset.scm b/examples/dump-probeset.scm index f34b4bd..c614a76 100755 --- a/examples/dump-probeset.scm +++ b/examples/dump-probeset.scm @@ -66,19 +66,14 @@ (let ((id (field ("IF(NULLIF(TRIM(ProbeSet.Name), '') IS NULL, '', TRIM(ProbeSet.Name))" ProbeSetIdName))) (probeset-id (field ProbeSet Id))) - (if (string-null? id) - (string->identifier - "probeset" - (number->string - probeset-id)) - (string->identifier - "" + (string->identifier + "probeset" + (if (string-null? id) + (number->string probeset-id) (regexp-substitute/global #f "[^A-Za-z0-9:]" id - 'pre "_" 'post) - #:separator "" - #:proc string-capitalize-first))) + 'pre "_" 'post)))) (set rdf:type 'gnc:probeset) (set rdfs:label (field ProbeSet Name)) (set skos:altLabel |