| 37 | } |
| 38 | |
| 39 | inline void set__(SEXP x){ |
| 40 | if (data != x) { |
| 41 | data = x; |
| 42 | Rcpp_PreciousRelease(token); |
| 43 | token = Rcpp_PreciousPreserve(data); |
| 44 | } |
| 45 | |
| 46 | // calls the update method of CLASS |
| 47 | // this is where to react to changes in the underlying SEXP |
| 48 | static_cast<CLASS&>(*this).update(data) ; |
| 49 | } |
| 50 | |
| 51 | inline SEXP get__() const { |
| 52 | return data ; |
no test coverage detected