Как оценить выражение с переменными в R?

Question

Я ожидаю, что этот код, чтобы установить plt равным 10:

> var = "plt" 
> eval(paste0(var, "<-", 10)) 
[1] "plt<-10" 

Но вместо этого, он возвращает строку.

Я пробовал eval(as.expression(paste0(var, "<-", 10))) и другие варианты, но он все еще не дает ожидаемого результата.

Что не так с кодом?

Answer 1

Если я правильно понимаю ваш комментарий, нет никаких оснований погружаться в затопленные акулой воды eval(parse()). Попробуйте что-то вроде этого:

myfun <- function(x, fun) { 
    if (is.character(fun)) fun <- match.fun(fun) 
    fun(x) 
} 

myfun(1:5, mean) 
#[1] 3 
myfun(1:5, "mean") 
#[1] 3 

Answer 2

См. ?parse. Ваш демо-код:

> var = "plt" 
> eval(parse(text = paste0(var, "<-", 10))) 
> plt 
[1] 10 

---

Update: на основе @ Антона комментарий о первоначальной цели - что о:

> f <- function(type, ...) { 
+  assign('plt', do.call(deparse(substitute(type)), list(...)), envir = .GlobalEnv) 
+ } 
> f(mean, x = 1:20) 
> plt 
[1] 10.5 

PS: Я все еще пытаюсь реализовать то, что ОП после , не то, что он мог или должен был после этого - вот почему я использовал выше assign и .GlobalEnv, хотя это не отличная идея BTW.