diff options
| author | Munyoki Kilyungi | 2023-05-26 13:02:40 +0300 |
|---|---|---|
| committer | BonfaceKilz | 2023-05-30 11:51:30 +0300 |
| commit | 646194d11a8fa3e7ee6339af194b93e5af1ae48e (patch) | |
| tree | 3e784c4a7857222e457fc4352adde0e5da34e9f7 | |
| parent | b0e6ce4d4cd6440a42ecbece895e44ed47979d27 (diff) | |
| download | gn-transform-databases-646194d11a8fa3e7ee6339af194b93e5af1ae48e.tar.gz | |
Update the probeset's identifier(object)
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -rwxr-xr-x | examples/dump-probeset.scm | 11 |
1 files 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)) |