about summary refs log tree commit diff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-06-09 15:09:11 +0300
committerBonfaceKilz2023-06-12 19:06:36 +0300
commit4480184dcf1264ade02d9930f6d34b36a7f2a58c (patch)
tree26b7af67ef6c523bffd11a93eab550dc9538215f
parent13a22740634c33b5e04a1319b1d4beb24d56a0d2 (diff)
downloadgn-transform-databases-4480184dcf1264ade02d9930f6d34b36a7f2a58c.tar.gz
Annotate a phenotype dataset with 'dataset:
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rwxr-xr-xexamples/dump-phenotype.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/examples/dump-phenotype.scm b/examples/dump-phenotype.scm
index 7582d94..5b05a79 100755
--- a/examples/dump-phenotype.scm
+++ b/examples/dump-phenotype.scm
@@ -36,7 +36,11 @@
    (gn:shortName rdfs:range rdfs:Literal)
    (gn:createTime rdfs:range rdfs:Literal)
    (gn:phenotypeDataset rdf:subClassOf gn:dataset))
-  (triples (string->identifier "dataset" (field PublishFreeze Name))
+  (triples
+      (ontology 'dataset:
+                (regexp-substitute/global #f "[^A-Za-z0-9:]"
+                                          (field PublishFreeze Name)
+                                          'pre "_" 'post))
     (set rdf:type 'gn:phenotypeDataset)
     (set gn:name (field PublishFreeze Name))
     (set gn:fullName (field PublishFreeze FullName))