コード例 #1
0
ファイル: XPtr.cpp プロジェクト: abelxie/Rcpp11
// [[Rcpp::export]]
int xptr_2( XPtr< std::vector<int> > p){
    		/* just return the front of the vector as a SEXP */
    		return p->front() ;
}
コード例 #2
0
ファイル: XPtr.cpp プロジェクト: LanceAtKS/LC
// [[Rcpp::export]]
int xptr_use_released( XPtr< std::vector<int> > p ) {
    return p->front();
}