| 148 | } |
| 149 | |
| 150 | void get_indices( traits::identity< traits::int2type<INTSXP> > t ) { |
| 151 | indices.reserve(rhs_n); |
| 152 | int* ptr = INTEGER(rhs); // ok to use int * here, we'll catch any problems inside check_indices |
| 153 | check_indices(ptr, rhs_n, lhs_n); |
| 154 | for (R_xlen_t i=0; i < rhs_n; ++i) { |
| 155 | indices.push_back( rhs[i] ); |
| 156 | } |
| 157 | indices_n = rhs_n; |
| 158 | } |
| 159 | |
| 160 | void get_indices( traits::identity< traits::int2type<REALSXP> > t ) { |
| 161 | indices.reserve(rhs_n); |