| 193 | */ |
| 194 | template <typename InputIterator, typename T> |
| 195 | inline SEXP range_wrap_dispatch___generic(InputIterator first, InputIterator last) { |
| 196 | size_t size = std::distance(first, last); |
| 197 | Shield<SEXP> x(Rf_allocVector(VECSXP, size)); |
| 198 | size_t i =0; |
| 199 | while(i < size) { |
| 200 | SET_VECTOR_ELT(x, i, ::Rcpp::wrap(*first)); |
| 201 | i++; |
| 202 | ++first; |
| 203 | } |
| 204 | return x; |
| 205 | } |
| 206 | |
| 207 | template <typename InputIterator, typename T> |
| 208 | inline SEXP range_wrap_dispatch___impl(InputIterator first, InputIterator last, ::Rcpp::traits::r_type_generic_tag) { |