| 112 | |
| 113 | private: |
| 114 | void set__(SEXP x){ |
| 115 | if( ::Rf_inherits( x, "data.frame" )){ |
| 116 | Parent::set__( x ) ; |
| 117 | } else{ |
| 118 | Shield<SEXP> y(internal::convert_using_rfunction( x, "as.data.frame" )) ; |
| 119 | Parent::set__( y ) ; |
| 120 | } |
| 121 | } |
| 122 | |
| 123 | void set_type_after_push(){ |
| 124 | R_xlen_t max_rows = 0; |
nothing calls this directly
no test coverage detected