Merge pull request #55 from cboettig/patch-synonym-input

include an input column for the synonym table
ropensci · May 14, 2019 · 4712481 · 4712481
2 parents 4f7c168 + 86403b8
commit 4712481
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/synonyms.R b/R/synonyms.R
@@ -45,9 +45,10 @@ synonyms <- function(name,
   })
   ## Join that back onto the id table
   out <- the_id_table %>%
-    dplyr::select("scientificName", "sort", "acceptedNameUsageID") %>%
+    dplyr::select("scientificName", "sort", "acceptedNameUsageID", "input") %>%
     dplyr::left_join(syn, by = "acceptedNameUsageID", copy = TRUE) %>%
-    dplyr::select("acceptedNameUsage", "synonym", "taxonRank", "acceptedNameUsageID") %>%
+    dplyr::select("acceptedNameUsage", "synonym", "taxonRank",
+                  "acceptedNameUsageID", "input") %>%
     dplyr::distinct()
 
   if (collect && inherits(out, "tbl_lazy")) {