| 26 | |
| 27 | namespace internal{ |
| 28 | inline SEXP empty_data_frame(){ |
| 29 | Shield<SEXP> df( Rf_allocVector(VECSXP, 0) ); |
| 30 | Rf_setAttrib(df, R_NamesSymbol, Rf_allocVector(STRSXP, 0)); |
| 31 | Rf_setAttrib(df, R_RowNamesSymbol, Rf_allocVector(INTSXP, 0)); |
| 32 | Rf_setAttrib(df, R_ClassSymbol, Rf_mkString("data.frame")); |
| 33 | return df; |
| 34 | } |
| 35 | } |
| 36 | |
| 37 | template <template <class> class StoragePolicy> |