Added chunk to 03_backbone to assist manual check of unresolved names

code/03_TaxonomicBackbone.Rmd

@@ -1297,6 +1297,32 @@ nrow(unique(Backbone$Family.correct))
 sessionInfo()
 ```
 
+```{r, eval=F, echo=F}
+toCheck_manual <- read_csv("../_derived/TPL/tpl.ncbi.uncertain.csv")
+load("../_output/Backbone3.0.RData")
+
+toCheck_manual <- toCheck_manual %>% 
+  rename(Name_string_corr2=Taxon) %>% 
+  left_join(Backbone %>% 
+              dplyr::select(Name_sPlot_TRY:sPlot_TRY), 
+            by="Name_string_corr2") %>% 
+  left_join(DT0 %>% 
+              rename(Name_sPlot_TRY=`Matched concept`) %>% 
+              dplyr::select(Name_sPlot_TRY) %>% 
+              group_by(Name_sPlot_TRY) %>% 
+              summarize(count=n()),
+            by="Name_sPlot_TRY") %>% 
+  left_join(DT0 %>% 
+              rename(Name_sPlot_TRY=`Matched concept`) %>% 
+              dplyr::select(Name_sPlot_TRY, Taxonomy) %>%
+              distinct(Name_sPlot_TRY, .keep_all=T), 
+            by="Name_sPlot_TRY"
+              )
+
+write_csv(toCheck_manual, path="../_derived/TPL/toCheck_Manual.csv")
+
+```
 
 
 
+user@local $ ssh user@idiv-gateway.ufz.de
\ No newline at end of file