| 81 | } ; |
| 82 | |
| 83 | SlotProxy slot(const std::string& name){ |
| 84 | SEXP x = static_cast<CLASS&>(*this) ; |
| 85 | if( !Rf_isS4(x) ) throw not_s4() ; |
| 86 | return SlotProxy( static_cast<CLASS&>(*this) , name ) ; |
| 87 | } |
| 88 | const_SlotProxy slot(const std::string& name) const { |
| 89 | SEXP x = static_cast<const CLASS&>(*this) ; |
| 90 | if( !Rf_isS4(x) ) throw not_s4() ; |
no test coverage detected