參數爲懶惰的評價

Question

我試圖varable表達傳遞給lazyeval函數的參數：

test <- function(expr){ 
    tmp <- iris[eval(substitute(expr), iris), ] 
    #actually do and return complicated stuff with tmp 
    return(data.frame(n = nrow(tmp), sepal.length = mean(tmp$Sepal.Length))) 
} 

test.species <- function(species){ 
    return(test(Species == substitute(species))) 
} 

#usage: 
test.species("virginica") 

功能測試工作得很好。但爲什麼test.species不工作？

Answer 1

substitute(Species == substitute(species))在test的內部進行評估，這意味着Species不會與字符值進行比較，而會與符號（substitute(species)）進行比較。

bquote可以在這裏而不是使用：

test.species <- function(species){ 
    eval(bquote(test(Species == .(species)))) 
} 
test.species("virginica") 
# n sepal.length 
#1 50  6.588