about summary refs log tree commit diff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-08-15 18:56:40 +0300
committerMunyoki Kilyungi2023-08-15 19:32:48 +0300
commitaba4bb229ae581dfa00353883e522b9a77fa8a09 (patch)
treee2dbb0edab49ee8fb583d5f20d6c02785ac806cf
parente1f390b7fab33d33fa3d813a74ae8b7d935c929b (diff)
downloadgn-transform-databases-aba4bb229ae581dfa00353883e522b9a77fa8a09.tar.gz
Rename probeset dataset name
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-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