aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-07-26 13:36:03 +0300
committerMunyoki Kilyungi2023-07-31 13:11:42 +0300
commit04c28dfe05dc3e2cadad75890a630b227be60900 (patch)
treed505afef5dbc25c429ff8eafb0919a5a4695efc6 /examples
parent398d5d9a59ae5cb6f74b415eb343a2c6eeadb440 (diff)
downloadgn-transform-databases-04c28dfe05dc3e2cadad75890a630b227be60900.tar.gz
Use "string->binomial-name" to id species
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/dump-species-metadata.scm6
1 files changed, 2 insertions, 4 deletions
diff --git a/examples/dump-species-metadata.scm b/examples/dump-species-metadata.scm
index 6d8c2bd..a6be89a 100755
--- a/examples/dump-species-metadata.scm
+++ b/examples/dump-species-metadata.scm
@@ -106,10 +106,8 @@
(set gn-term:inbredSetOfMappingMethod (field MappingMethod Name))
(set gn-term:inbredSetCode (field InbredSet InbredSetCode))
(set gn-term:inbredSetOfSpecies
- (string->identifier "" (field Species FullName BinomialName)
- #:ontology "gn:"
- #:separator ""
- #:proc string-capitalize-first))
+ (string->binomial-name
+ (field Species FullName BinomialName)))
(set gn-term:genotype
(field ("IF ((SELECT PublishFreeze.Name FROM PublishFreeze WHERE PublishFreeze.InbredSetId = InbredSet.Id LIMIT 1) IS NOT NULL, 'Traits and Cofactors', '')" genotypeP)))
(set gn-term:phenotype