diff options
author | Munyoki Kilyungi | 2023-07-26 13:36:03 +0300 |
---|---|---|
committer | Munyoki Kilyungi | 2023-07-31 13:11:42 +0300 |
commit | 04c28dfe05dc3e2cadad75890a630b227be60900 (patch) | |
tree | d505afef5dbc25c429ff8eafb0919a5a4695efc6 /examples/dump-species-metadata.scm | |
parent | 398d5d9a59ae5cb6f74b415eb343a2c6eeadb440 (diff) | |
download | gn-transform-databases-04c28dfe05dc3e2cadad75890a630b227be60900.tar.gz |
Use "string->binomial-name" to id species
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/dump-species-metadata.scm')
-rwxr-xr-x | examples/dump-species-metadata.scm | 6 |
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 |