From 5699c945e28db4a9d0ff43731b2b7e313d354a4a Mon Sep 17 00:00:00 2001
From: Francesco Sabatini <francesco.sabatini@idiv.de>
Date: Wed, 31 Jul 2019 11:49:30 +0200
Subject: [PATCH] Manually corrected a few taon in Backbone3.0

---
 code/03_TaxonomicBackbone.Rmd | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/code/03_TaxonomicBackbone.Rmd b/code/03_TaxonomicBackbone.Rmd
index 229a3f1..7d82365 100644
--- a/code/03_TaxonomicBackbone.Rmd
+++ b/code/03_TaxonomicBackbone.Rmd
@@ -53,7 +53,7 @@ library(vegdata)
 ```{r, echo=F}
 ## fungi genera #NOT COMPLETE LIST
 mushroom <- c("Mycena", "Boletus", "Russula","Calocybe","Collybia","Amanita","Amanitopsis","Coprinus",
-  "Galerina","Geoglossum","Hebeloma","Hydnum","Lactarius","Leucocarpia","Naucoria","Otidea","Polyporus",
+  "Galerina","Geoglossum","Hebeloma","Hydnum","Lactarius","Leucocarpia","Naucoria","Otidea","Polyporus", "Involucrothele",
   "Sarcodom","Sarcoscyphus","Scleroderma","Stropharia","Tylopilus","Typhula", "Calyptella", "Chrysopsora", "Lacrymaria", "Dermoloma", 
    "Agaricus","Alnicola", "Amanitina", "Bovista", "Cheilymenia","Clavulinopsis", "Clitocybe", "Entoloma", "Geaster", "Inocybe",
   "Laccaria", "Laetiporus", "Lepista", "Macrolepiota", "Macrolepis", "Marasmius", "Panaeolus", "Psathyrella", "Psilocybe", 
@@ -520,7 +520,10 @@ tnrs.submit.iter2 <- data.frame(old=tnrs.res.uncertain$Name_submitted) %>%
   mutate(new=gsub('Alnus inca', 'Alnus incana', new)) %>%
   mutate(new=gsub('Amalencier alnifolia', 'Amalenchier alnifolia', new)) %>% 
   mutate(new=gsub('Antylis barba-jovis', 'Anthyllis barba-jovis', new)) %>% 
-  mutate(new=gsub('^Albizzia "', 'Albizia ', new))
+  mutate(new=gsub('^Albizzia "', 'Albizia ', new)) %>% 
+  mutate(new=gsub('^Ipomoena ', 'Ipomoea ', new)) %>% 
+  mutate(new=gsub('^Ipomea ', 'Ipomoea ', new)) %>% 
+  mutate(new=gsub('Ipomo wolco', 'Ipomoea wolcottiana', new))
   
   
 # delete remaining records of mushroom species
-- 
GitLab