Thank you, again!
I came across case_when() trying to figure out another problem and changed the code for this problem to just last night. I think I'll be able to solve most of my recoding with case_when(). However the lookup table does seem more elegant...especially in combination with your solution for this problem.