[Rcpp-devel] Bug report: need to wrap return of sugar functions
On 2011-08-16 08:34, Wray, Christopher wrote:
=============
x=matrix(1:12,4,3);
print(ifelse(x<5,x*x,x))
src2='
using namespace Rcpp;
NumericMatrix x(x_);
NumericVector y=ifelse(x<5,x*x,x);
y.attr("dim")=Dimension(x.nrow(),x.ncol());
return y;
'
fun=cxxfunction(signature(x_ ="integer"),src2,plugin="Rcpp")
print(fun(x))
===========
does this do it for you
Hello Christopher, Thanks for the suggestion. It works perfectly (I suspect some template magic could make this assignment automatic). Darren
Darren Cook, Software Researcher/Developer http://dcook.org/work/ (About me and my work) http://dcook.org/blogs.html (My blogs and articles)