From 72a684539f777774ca6298dbabdf3d5f17adec15 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Mon, 21 Aug 2023 15:56:55 +0300 Subject: Add missing function * examples/dataset-metadata.scm (remap-species-identifiers): New function. Signed-off-by: Munyoki Kilyungi --- examples/dataset-metadata.scm | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'examples') 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. -- cgit v1.2.3