Recoding Multiple Variables at Once Using the `else=copy` Option in R