Esempio n. 1
0
// [[Rcpp::export]]
int xptr_2( XPtr< std::vector<int> > p){
    		/* just return the front of the vector as a SEXP */
    		return p->front() ;
}
Esempio n. 2
0
// [[Rcpp::export]]
int xptr_use_released( XPtr< std::vector<int> > p ) {
    return p->front();
}