aboutsummaryrefslogtreecommitdiff
path: root/examples/dump-phenotype.scm
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-08-19 16:10:02 +0300
committerMunyoki Kilyungi2023-08-19 16:10:02 +0300
commitdcfe92323fa82c30a199e8d9640668800a93f47b (patch)
treeaa9a16d8273b2611d349a0aec353a95ad5a02b3e /examples/dump-phenotype.scm
parentbc6e327b906f1c47be46ee397a3be46a222211f0 (diff)
downloadgn-transform-databases-dcfe92323fa82c30a199e8d9640668800a93f47b.tar.gz
Rename inbredSet identifier
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/dump-phenotype.scm')
-rwxr-xr-xexamples/dump-phenotype.scm7
1 files changed, 7 insertions, 0 deletions
diff --git a/examples/dump-phenotype.scm b/examples/dump-phenotype.scm
index 8d04a80..203b2f3 100755
--- a/examples/dump-phenotype.scm
+++ b/examples/dump-phenotype.scm
@@ -79,6 +79,13 @@
(field ("CONCAT(IFNULL(InbredSet.Name, PublishXRef.InbredSetId), '_', PublishXRef.Id)"
Phenotype)))
(set rdf:type 'gnc:phenotype)
+ (set gnt:belongsToInbredSet
+ (string->identifier
+ "inbredSet" (field InbredSet Name)
+ #:separator ""
+ #:proc string-capitalize-first))
+ (set gnt:traitName
+ (field PublishXRef Id))
(set rdfs:label
(field ("CONCAT(IFNULL(InbredSet.Name, PublishXRef.InbredSetId), '_', PublishXRef.Id)"
Phenotype)))