Function reset_current_error

src/barrier.cpp:208–221

[[Rcpp::register]]

// [[Rcpp::register]]
SEXP reset_current_error() {							// #nocov start
    SEXP cache = get_rcpp_cache();

    // error occured
    set_error_occured(cache, Rf_ScalarLogical(FALSE));

    // current error
    set_current_error(cache, R_NilValue);

    // stack trace
    SET_VECTOR_ELT(cache, 3, R_NilValue);

    return R_NilValue;
}

// [[Rcpp::register]]
int error_occured() {