diff options
| -rwxr-xr-x | examples/dump-probeset-metadata.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/examples/dump-probeset-metadata.scm b/examples/dump-probeset-metadata.scm index 37fef70..045a747 100755 --- a/examples/dump-probeset-metadata.scm +++ b/examples/dump-probeset-metadata.scm @@ -23,13 +23,15 @@ (left-join ProbeSetFreeze "ON ProbeSetXRef.ProbeSetFreezeId = ProbeSetFreeze.Id")) "WHERE ProbeSetFreeze.public > 0 AND ProbeSetFreeze.confidentiality < 1") (schema-triples - (gn:probesetData rdfs:range gn:probeset) (gnt:hasProbeset rdfs:range rdfs:Literal)) (triples (string->identifier - "probesetData" - (field ("CONCAT(ProbeSetFreeze.Name,':',IFNULL(ProbeSet.Name, ProbeSet.Id))" - ProbeSetName))) + "" + (regexp-substitute/global #f "[^A-Za-z0-9:]" + (field ProbeSetFreeze Name) + 'pre "_" 'post) + #:separator "" + #:proc string-capitalize-first) (set rdf:type 'gnc:probesetData) (set gnt:hasProbeset (ontology |