diff --git a/code/03_TaxonomicBackbone.Rmd b/code/03_TaxonomicBackbone.Rmd index 46b8612831e310fa52e76ef242505aa214457609..2980f5a888cbf6b64de6b0aad90d7fc31a9fcb13 100644 --- a/code/03_TaxonomicBackbone.Rmd +++ b/code/03_TaxonomicBackbone.Rmd @@ -1481,8 +1481,28 @@ save(Backbone, file="../_output/Backbone3.0.RData") ## Export species list to request in TRY ```{r} -Backbone %>% - filter(grep(sPlot_TRY,pattern = "S")) +ToSubmit1 <- Backbone %>% + filter(grepl(sPlot_TRY, pattern = "S")) %>% + filter(grepl(sPlot_TRY, pattern = "T")) %>% + dplyr::select(Name_sPlot_TRY) %>% + rename(Name_submit = Name_sPlot_TRY) + +## add names from T, which match names from S only after standardization +ToSubmit2 <- Backbone %>% + filter(grepl(sPlot_TRY, pattern = "T")) %>% + filter(!grepl(sPlot_TRY, pattern = "S")) %>% + filter(Name_sPlot_TRY %in% ((Backbone %>% + filter(grepl(sPlot_TRY, pattern = "S")) %>% + filter(!grepl(sPlot_TRY, pattern = "T")) %>% + dplyr::select(Name_correct) %>% + distinct())$Name_correct)) %>% + dplyr::select(Name_sPlot_TRY) %>% + rename(Name_submit = Name_sPlot_TRY) + +ToSubmit <- ToSubmit1 %>% + bind_rows(ToSubmit2) + +write_csv(ToSubmit, "../_output/Submit_TRY.csv") ``` @@ -1704,5 +1724,3 @@ write_csv(toCheck_manual, path="../_derived/TPL/toCheck_Manual.csv") ``` - -user@local $ ssh user@idiv-gateway.ufz.de