Fuzzyjoin / stringdist_join weight for capitalisatoin (case) mismatch (stringdist)

Question

Working with R, I\'m looking for ways to weight case (i.e., upper vs lower case) in a string_dist_left_join()

Here\'s a reproducible example: