параметр в аргументе для ленивых оценки

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