add regression tests for SEXP return values
This commit is contained in:
parent
93b63969f9
commit
e8c6384f77
3 changed files with 19 additions and 1 deletions
10
Examples/test-suite/r_sexp.i
Normal file
10
Examples/test-suite/r_sexp.i
Normal 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
|
||||
}
|
||||
%}
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue