| 102 | return x; |
| 103 | } |
| 104 | inline void Rcpp_ReleaseObject(SEXP x) { |
| 105 | if (x != R_NilValue) R_ReleaseObject(x); |
| 106 | } |
| 107 | inline SEXP Rcpp_ReplaceObject(SEXP x, SEXP y) { |
| 108 | // if we are setting to the same SEXP as we already have, do nothing |
| 109 | if (x != y) { |
no outgoing calls
no test coverage detected