| 36 | // for Named objects |
| 37 | template <typename T> |
| 38 | inline SEXP lgrow__dispatch(Rcpp::traits::true_type, const T& head, SEXP tail) { |
| 39 | Shield<SEXP> y(wrap(head.object)); |
| 40 | Shield<SEXP> x(Rf_lcons(y, tail)); |
| 41 | SEXP headNameSym = Rf_install(head.name.c_str()); |
| 42 | SET_TAG(x, headNameSym); |
| 43 | return x; |
| 44 | } |
| 45 | |
| 46 | // for all other objects |
| 47 | template <typename T> |