Function testUnwindProtectLambda

inst/tinytest/cpp/stack.cpp:74–79

[[Rcpp::export]]

// [[Rcpp::export]]
SEXP testUnwindProtectLambda(Environment indicator, bool fail) {
    unwindIndicator my_data(indicator);
    SEXP out = R_NilValue;
    out = Rcpp::unwindProtect([&] () { return maybeThrow(&fail); });
    return out;
}

struct FunctionObj {
    FunctionObj(int data_, bool fail_) : data(data_), fail(fail_) { }