Replace case_when() calls with case_match()

[egouldo]

From ?dplyr::case_match():

# Setting `.default` to the original vector is a useful way to replace
# selected values, leaving everything else as is
case_match(y, NA ~ 0, .default = y)

This will avoid expressions on the RHS from evaluating and causing warning messages when all we want to do is replace selected values.