Function maybeThrow

inst/tinytest/cpp/stack.cpp:56–62

}

SEXP maybeThrow(void* data) {
    bool* fail = (bool*) data;
    if (*fail)
        (Rf_error)("throw!"); // prevent masking
    else
        return NumericVector::create(42);
}

// [[Rcpp::export]]
SEXP testUnwindProtect(Environment indicator, bool fail) {