How to Force Evaluation of a Variable Inside a Newly Created Function Using Deparse in R