From aba4bb229ae581dfa00353883e522b9a77fa8a09 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Tue, 15 Aug 2023 18:56:40 +0300 Subject: Rename probeset dataset name Signed-off-by: Munyoki Kilyungi --- examples/dump-probeset-metadata.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'examples/dump-probeset-metadata.scm') 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 -- cgit v1.2.3