diff options
| author | Munyoki Kilyungi | 2023-07-26 13:36:03 +0300 |
|---|---|---|
| committer | BonfaceKilz | 2023-07-30 12:29:56 +0300 |
| commit | e662d9054a1f753044cfd13bf8f6965062879e86 (patch) | |
| tree | 1a66c2e07b95f8280c6323ad0b9190a7aac08397 /examples | |
| parent | ddf6bd5b1016df4a4d8d4727852a7ed80cc90407 (diff) | |
| download | gn-transform-databases-e662d9054a1f753044cfd13bf8f6965062879e86.tar.gz | |
Use "string->binomial-name" to id species
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples')
| -rwxr-xr-x | examples/dump-species-metadata.scm | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/examples/dump-species-metadata.scm b/examples/dump-species-metadata.scm index 008c3a0..77db764 100755 --- a/examples/dump-species-metadata.scm +++ b/examples/dump-species-metadata.scm @@ -26,9 +26,7 @@ (gn-term:binomialName rdfs:range rdfs:Literal) (gn-term:family rdfs:range rdfs:Literal)) (triples - (string->identifier "" (field Species FullName) - #:separator "" - #:proc string-capitalize-first) + (string->binomial-name (field Species FullName)) (set rdf:type 'gn:species) (set gn-term:name (field Species SpeciesName)) (set gn-term:displayName (field Species MenuName)) @@ -55,9 +53,7 @@ #:proc string-capitalize-first) (set rdf:type 'gn:strain) (set gn-term:strainOfSpecies - (string->identifier "" (field Species FullName) - #:separator "" - #:proc string-capitalize-first)) + (string->binomial-name (field Species FullName))) ;; Name, and maybe a second name (set gn-term:name (sanitize-rdf-string (field Strain Name))) (set gn-term:name2 (sanitize-rdf-string (field Strain Name2))) @@ -96,10 +92,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 |