[[Rcpp::export]]
| 24 | |
| 25 | // [[Rcpp::export]] |
| 26 | List S4_methods( RObject y ){ |
| 27 | List res(5) ; |
| 28 | res[0] = y.isS4() ; |
| 29 | res[1] = y.hasSlot("x") ; |
| 30 | res[2] = y.hasSlot("z") ; |
| 31 | res[3] = y.slot("x") ; |
| 32 | res[4] = y.slot("y") ; |
| 33 | return res ; |
| 34 | } |
| 35 | |
| 36 | // [[Rcpp::export]] |
| 37 | void S4_getslots( S4 y){ |