Rcpp：地球環境からR関数を呼び出し、C++コードで使用する

Question

どのRパッケージにも属していないR関数をC++コードとして呼び出す方法は？私は非常に意味論的な例を通して私が何を意味するかを示すことができます。私が書いたRファイルがあるとします。

myRfunction <- function(x){ 
return(x+2) 
} 

一般的なC++コードで使用したいと思います。だから、私は何かのように書く

#include <RcppArmadillo.h> 
// [[Rcpp::depends(RcppArmadillo)]] 
using namespace Rcpp; 
using namespace arma; 
using namespace std; 

// [[Rcpp::export]] 

arma::vec myCppfunction(arma::vec y){ 
arma::sec results = myRfunction(y); /* Or whatever I have to do to call it! */ 
return results; 
} 

私はそれを行う方法を教えてもらえますか？一般的な手順は何ですか？皆さん、ありがとうございました。

Answer 1

例。

> timesTwoR <- function(x) 2*x 

cppファイル：Rに

#include <Rcpp.h> 
using namespace Rcpp; 

Function timesTwoFromR = Environment::global_env()["timesTwoR"]; 

// [[Rcpp::export]] 
NumericVector timesTwo(NumericVector x) { 
    return timesTwoFromR(x); 
} 

その後、Rに：

また

> timesTwo(42) 
[1] 84 

Answer 2

、あなたは、C++関数の引数として何かをR関数を渡すことができます

// [[Rcpp::export]] 
NumericVector call_r_fun(NumericVector x, Function f) { 
    return f(x) ; 
}