change to allow file SEXP return values

This commit is contained in:
joequant 2013-07-14 20:28:17 +08:00
commit 93b63969f9
2 changed files with 4 additions and 0 deletions

View file

@ -151,6 +151,8 @@ string &, std::string &
#%typemap(scoerceout) SWIGTYPE *const
# %{ class($result) <- "$R_class"; %}
%typemap(scoerceout) SEXP %{ %}
%typemap(scoerceout) SWIGTYPE
%{ $result <- new("$&R_class", ref=$result); %}