new function to evaluate symbols/languages for #142

yihui · Feb 25, 2012 · 3eb0514 · 3eb0514
1 parent fe746de
commit 3eb0514
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -269,6 +269,12 @@ eval_opt = function(x) {
     eval(parse(text = x), envir = globalenv())
 }
 
+## eval options as symbol/language objects
+eval_lang = function(x, envir = globalenv()) {
+  if (!is.symbol(x) && !is.language(x)) return(x)
+  eval(x, envir = envir)
+}
+
 ## counterpart of isTRUE()
 isFALSE = function(x) identical(x, FALSE)