| 32 | typedef typename Rcpp::traits::storage_type<RTYPE>::type STORAGE ; |
| 33 | |
| 34 | Head( const VEC_TYPE& object_, R_xlen_t n_ ) : object(object_), n(n_) { |
| 35 | if( n < 0 ){ |
| 36 | n = object.size() + n ; |
| 37 | } |
| 38 | } |
| 39 | |
| 40 | inline STORAGE operator[]( R_xlen_t i ) const { |
| 41 | return object[ i ] ; |