Function InternalFunction_invoke

src/module.cpp:117–124

.External functions

// .External functions
SEXP InternalFunction_invoke(SEXP args) {
BEGIN_RCPP
    SEXP p = CDR(args);
    XP_Function fun(CAR(p)); p = CDR(p);
    UNPACK_EXTERNAL_ARGS(cargs,p)
    return fun->operator()(cargs);
END_RCPP
}

SEXP Module__invoke(SEXP args) {						// #nocov start
BEGIN_RCPP