aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xexamples/dump-probeset-metadata.scm10
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