如何從Rcpp定義R函數？

Question

下面是一個小例子：

require(Rcpp) 
require(inline) 

src <- ' 
Rcpp::Environment glob = Rcpp::Environment::global_env(); 
glob.assign("foo" , "function(x) x + 1"); 
' 

myFun <- cxxfunction(body=src,plugin = "Rcpp") 
myFun() 

foo 
[1] "function(x) x + 1" 

如果沒有意外，我得到的是一個字符變量，而不是一個功能。

Answer 1

您需要通常的parse/eval組合才能將字符串轉換爲對象。

foo <- eval(parse(text = "function(x) x+1")) 
foo(1:10) 
# [1] 2 3 4 5 6 7 8 9 10 11 

在Rcpp，你可以使用一個ExpressionVector。

// [[Rcpp::export]] 
void fun(){ 
    ExpressionVector exp("function(x) x+1") ; 
    Function f = exp.eval(); 

    Rcpp::Environment glob = Rcpp::Environment::global_env(); 
    glob.assign("foo" , f); 
}