Recode Character Values to Numeric in R Using Custom Functions and grep: A Step-by-Step Approach