10 lines
163 B
OpenEdge ABL
10 lines
163 B
OpenEdge ABL
%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
|
|
}
|
|
%}
|
|
|