Manually corrected a few taon in Backbone3.0

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