Rcpp Version 1.0.9
loopmacro.h
Go to the documentation of this file.
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