| 47 | ~ContainerExporter(){} |
| 48 | |
| 49 | Container get(){ |
| 50 | if( TYPEOF(object) == RTYPE ){ |
| 51 | T* start = Rcpp::internal::r_vector_start<RTYPE>(object) ; |
| 52 | return Container( start, start + Rf_xlength(object) ) ; |
| 53 | } |
| 54 | Container vec( ::Rf_xlength(object) ); |
| 55 | ::Rcpp::internal::export_range( object, vec.begin() ) ; |
| 56 | return vec ; |
| 57 | } |
| 58 | |
| 59 | private: |
| 60 | SEXP object ; |
no test coverage detected