add regression tests for SEXP return values

This commit is contained in:
joequant 2013-07-14 20:29:37 +08:00
commit e8c6384f77
3 changed files with 19 additions and 1 deletions

View file

@ -0,0 +1,10 @@
%module r_sexp
extern "C" SEXP return_sexp(SEXP x);
%inline %{
SEXP return_sexp(SEXP x) {
return x; //Rcpp NumericVector is automatically casted to SEXP
}
%}