safevec.cpp

#include <Rcpp.h>
using namespace Rcpp;

List foo(){
  return List::create(1, 2, 3 ) ;
}

NumericMatrix bar(){ 
  return NumericMatrix(10, 10); 
}

class safevec {
public:
  void push_back(SEXP x){
    data.push_back(shelter(x)) ;
  }
  
  List get(){
    return wrap(data) ;
  }
  
private:
  std::vector<SEXP> data ;
  Shelter<SEXP> shelter ;
};


// [[Rcpp::export]]
List stuff() {
  
  safevec v ;
  for( int i=0; i<100; i++) {
    v.push_back(foo()) ;
    v.push_back(bar()) ;
  }
  return v.get() ;
}