Fuzzy merging in R - seeking help to improve my code

Question

Inspired by the experimental fuzzy_join function from the statar package I wrote a function myself which combines exact and fuzzy (by string distances) matching. Th