From 646194d11a8fa3e7ee6339af194b93e5af1ae48e Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Fri, 26 May 2023 13:02:40 +0300 Subject: Update the probeset's identifier(object) Signed-off-by: Munyoki Kilyungi --- examples/dump-probeset.scm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/examples/dump-probeset.scm b/examples/dump-probeset.scm index bdcdcca..57d0c60 100755 --- a/examples/dump-probeset.scm +++ b/examples/dump-probeset.scm @@ -24,11 +24,16 @@ (tables (ProbeSet (left-join GeneChip "ON GeneChip.Id = ProbeSet.ChipId"))) (schema-triples - (gn:name rdfs:range rdfs:Literal)) + (gn:name rdfs:range rdfs:Literal) + (gn:probeset rdfs:range rdfs:Literal)) (triples (ontology 'probeset: - (field ("IFNULL(ProbeSet.Name, ProbeSet.Id)" - name))) + (regexp-substitute/global + #f "[^A-Za-z0-9:]" + (field ("IFNULL(ProbeSet.Name, ProbeSet.Id)" + name)) + 'pre "_" 'post)) + (set rdf:type 'gn:probeset) (set gn:chipOf (string->identifier "platform" (field GeneChip Name))) (set gn:name (field ProbeSet Name)) (set gn:symbol (field ProbeSet Symbol)) -- cgit v1.2.3