사용 대용품은() 레이블/인수 이름

Question

을 대체하는 나는 다음과 같은 코드가 있습니다

eval(substitute(list(x = y), list(x = "foo", y = "bar"))) 

이 list(x = "bar") 반환, 즉 단지 값이 대체됩니다하지만 레이블을.

은 레이블을 바꾸어 결과가 list(foo = "bar")이되도록합니다.

Answer 1

x은 이름에 바인딩됩니다. 우리는

as.list(substitute(list(x = y))) 
# [[1]] 
# list 
# 
# $x 
# y 

에 따라서는 substitute 호출 내에서 이름을 변경 정말 쉽지 않은 것을 볼 수 있습니다. 하지만 당신은

e <- substitute(list(x = y), list(y = "bar")) 
names(e)[2] <- "foo" 
eval(e) 
# $foo 
# [1] "bar" 

하거나 substitute 당신이 setNames

e <- substitute(setNames(list(y), x), list(x = "foo", y = "bar")) 
eval(e) 
# $foo 
# [1] "bar" 

를 사용하는 식을 변경할 수 있습니다 할 수 있습니다하지만 당신은 또한 내가 와서

cl <- call("list", foo = "bar") 
eval(cl) 
# $foo 
# [1] "bar" 

Answer 2

쉽게 call을 사용할 수 있습니다 이 괴물과 :

eval (parse (tex (x = "foo", y = "bar")))))))))))))))))))))))))))))))))))))