3

最小限の例を次に示します。

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"

当然のことながら、得られるのは関数ではなく文字変数です。

4

1 に答える 1

6

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 );
}
于 2012-12-14T13:14:34.290 に答える