Class FunctionObj

inst/tinytest/cpp/stack.cpp:81–90

}

struct FunctionObj {
    FunctionObj(int data_, bool fail_) : data(data_), fail(fail_) { }
    SEXP operator() () {
        NumericVector x = maybeThrow(&fail);
        x[0] = x[0] * data;
        return x;
    }
    int data;
    bool fail;
};

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