aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-05-23 16:07:11 +0300
committerBonfaceKilz2023-05-26 08:40:22 +0300
commit7d9964474deaea4e06dcc8a415c0bcbc316c24b4 (patch)
tree2215235d96daceb9ec8ca74e132182a91863433e
parent8076e5c096d709e707927b1bad7090063dc68ce0 (diff)
downloadgn-transform-databases-7d9964474deaea4e06dcc8a415c0bcbc316c24b4.tar.gz
Return an empty string if a dataset doesn't have a name
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rwxr-xr-xexamples/dump-genotype.scm2
-rwxr-xr-xexamples/dump-phenotype.scm7
-rwxr-xr-xexamples/dump-probeset.scm2
3 files changed, 6 insertions, 5 deletions
diff --git a/examples/dump-genotype.scm b/examples/dump-genotype.scm
index 13e4885..cffa917 100755
--- a/examples/dump-genotype.scm
+++ b/examples/dump-genotype.scm
@@ -74,7 +74,7 @@
(ontology 'dataset:
(regexp-substitute/global
#f "[^A-Za-z0-9:]"
- (field GenoFreeze Name)
+ (field ("IFNULL(GenoFreeze.Name, '')" DatasetName))
'pre "_" 'post)))
(set gn:chrNum
(annotate-field
diff --git a/examples/dump-phenotype.scm b/examples/dump-phenotype.scm
index 08d5127..5f8cd94 100755
--- a/examples/dump-phenotype.scm
+++ b/examples/dump-phenotype.scm
@@ -91,9 +91,10 @@
(set gn:sequence (annotate-field (field PublishXRef Sequence) '^^xsd:int))
(set gn:phenotypeOfDataset
(ontology 'dataset:
- (regexp-substitute/global #f "[^A-Za-z0-9:]"
- (field PublishFreeze Name)
- 'pre "_" 'post)))
+ (regexp-substitute/global
+ #f "[^A-Za-z0-9:]"
+ (field ("IFNULL(PublishFreeze.Name, '')" DatasetName))
+ 'pre "_" 'post)))
(set gn:phenotypeOfPublication
(let ((pmid (field
("IF(Publication.PubMed_ID IS NULL, '', CONVERT(Publication.PubMed_Id, INT))"
diff --git a/examples/dump-probeset.scm b/examples/dump-probeset.scm
index 0b37514..a71f708 100755
--- a/examples/dump-probeset.scm
+++ b/examples/dump-probeset.scm
@@ -44,7 +44,7 @@
'probeset:
(regexp-substitute/global
#f "[^A-Za-z0-9:]"
- (field ProbeSetFreeze Name)
+ (field ("IFNULL(ProbeSetFreeze.Name, '')" DatasetName))
'pre "_" 'post)))
(set gn:mean (annotate-field (field ("IFNULL(ProbeSetXRef.mean, '')" mean))
'^^xsd:double))