diff options
| author | Munyoki Kilyungi | 2023-08-21 15:56:55 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-08-21 17:52:08 +0300 |
| commit | 72a684539f777774ca6298dbabdf3d5f17adec15 (patch) | |
| tree | 92e4cc900edd5d7b3f7716a76c368551990f100c | |
| parent | 99cef5dab86b93fb6f7d600297bd4fbb54622a64 (diff) | |
| download | gn-transform-databases-72a684539f777774ca6298dbabdf3d5f17adec15.tar.gz | |
Add missing function
* examples/dataset-metadata.scm (remap-species-identifiers): New function.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -rwxr-xr-x | examples/dataset-metadata.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/examples/dataset-metadata.scm b/examples/dataset-metadata.scm index 8bb9607..7cda69c 100755 --- a/examples/dataset-metadata.scm +++ b/examples/dataset-metadata.scm @@ -12,6 +12,15 @@ (transform special-forms)) +(define (remap-species-identifiers str) + "This procedure remaps identifiers to standard binominal. Obviously this should + be sorted by correcting the database!" + (match str + ["Fly (Drosophila melanogaster dm6)" "Drosophila melanogaster"] + ["Oryzias latipes (Japanese medaka)" "Oryzias latipes"] + ["Macaca mulatta" "Macaca nemestrina"] + ["Bat (Glossophaga soricina)" "Glossophaga soricina"] + [str str])) ;; One email ID in the Investigators table has spaces in it. This ;; function fixes that. |