| 425 | |
| 426 | template <typename InputIterator> |
| 427 | void assign( InputIterator first, InputIterator last){ |
| 428 | /* FIXME: we can do better than this r_cast to avoid |
| 429 | allocating an unnecessary temporary object |
| 430 | */ |
| 431 | Shield<SEXP> wrapped(wrap(first, last)); |
| 432 | Shield<SEXP> casted(r_cast<RTYPE>(wrapped)); |
| 433 | Storage::set__(casted) ; |
| 434 | } |
| 435 | |
| 436 | template <typename InputIterator> |
| 437 | static Vector import( InputIterator first, InputIterator last){ |
no test coverage detected