[[Rcpp::export]]
| 63 | |
| 64 | // [[Rcpp::export]] |
| 65 | SEXP testUnwindProtect(Environment indicator, bool fail) { |
| 66 | unwindIndicator my_data(indicator); |
| 67 | SEXP out = R_NilValue; |
| 68 | out = Rcpp::unwindProtect(&maybeThrow, &fail); |
| 69 | return out; |
| 70 | } |
| 71 | |
| 72 | |
| 73 | // [[Rcpp::export]] |
nothing calls this directly
no test coverage detected