1 2 #define LOOPMACRO_C(name) \ 3 SEXP name##__loop(SEXP n_, SEXP a, SEXP b){ \ 4 int n = INTEGER(n_)[0] ; \ 5 SEXP res = R_NilValue ; \ 6 for( int i=0; i<n; i++){ \ 7 res = name( a, b ) ; \ 8 } \ 9 return res ; \ 10 } 11 12 #define LOOPMACRO_CPP(name) RcppExport LOOPMACRO_C(name) 13 14