r - 如何从 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 );
}