case_when using variable name to change data value

Question

I have the following dataframe:

df <- data.frame(var1_lag0 = c(1,2,3,4,5,6)
                 , var1_lag1 = c(0,1,2,3,4,5)
                 , var2_lag0 = c(