stringdist_join does not rename similar variable names

[jfbratt]

Fails to rename similar variable names in the resulting fuzzy joined data table.

library(magrittr)
library(fuzzyjoin)

data_1 <- data.frame(town = c("Boston", "Philadelphia", "Salt Lake City", "Jacksonville"),
                     year = c(1900, 1901, 1902,1903))

data_2 <- data.frame(city = c("Bsoton", "Philedelphia", "Salt Lake City"),
                    state = c("Massachusetts", "Pennsylvania", "Utah"),
                    pop = c(10, 20, 30),
                    year = c(2008, 2009, 2010))

test_join <- data_1 %>% 
  stringdist_join(data_2, by = c(town = "city"), max = 1, mode = "left")

Output:

            town year           city         state pop year
1         Boston 1900         Bsoton Massachusetts  10 2008
2   Philadelphia 1901   Philedelphia  Pennsylvania  20 2009
3 Salt Lake City 1902 Salt Lake City          Utah  30 2010
4   Jacksonville 1903           <NA>          <NA>  NA   NA

[dgrtwo]

Fixed, thanks!