14 lines
430 B
C
14 lines
430 B
C
|
|
||
|
|
#define LOOPMACRO_C(name) \
|
||
|
|
SEXP name##__loop(SEXP n_, SEXP a, SEXP b){ \
|
||
|
|
int n = INTEGER(n_)[0] ; \
|
||
|
|
SEXP res = R_NilValue ; \
|
||
|
|
for( int i=0; i<n; i++){ \
|
||
|
|
res = name( a, b ) ; \
|
||
|
|
} \
|
||
|
|
return res ; \
|
||
|
|
}
|
||
|
|
|
||
|
|
#define LOOPMACRO_CPP(name) RcppExport LOOPMACRO_C(name)
|
||
|
|
|