From 86403b8ded7893392f0503749e4f48a397f9e1dd Mon Sep 17 00:00:00 2001
From: Carl Boettiger <cboettig@gmail.com>
Date: Tue, 14 May 2019 11:17:43 -0400
Subject: [PATCH] include an input column for the synonym table closes #54

---
 R/synonyms.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/R/synonyms.R b/R/synonyms.R
index a67499d..be19b74 100644
--- 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")) {