Le 07/10/10 22:04, Koert Kuipers a écrit :
Hello all,
I need to convert a std::string to a RAWSXP. I think i know hot do to this
without Rcpp. It goes something like this (i haven't tested this):
SEXP stringToRaw(std::string x) {
SEXP y;
PROTECT(y = allocVector(RAWSXP, x.length()));
memcpy(RAW(y), x.data(), x.length());
UNPROTECT(1);
return y;
}
How do i do this with Rcpp? Say i want to return a Rcpp::RawVector?
Thanks,
Koert
Hi,
I would litteraly C++ify the code you have to make something like this:
require( inline )
require( Rcpp )
fx <- cxxfunction( , '
std::string foo( "blabla" ) ;
RawVector res( foo.size() ) ;
std::copy( foo.begin(), foo.end(), res.begin() ) ;
return res ;
', plugin = "Rcpp" )
> fx( )
[1] 62 6c 61 62 6c 61
> charToRaw( "blabla" )
[1] 62 6c 61 62 6c 61
Romain
--
Romain Francois
Professional R Enthusiast
+33(0) 6 28 91 30 30
http://romainfrancois.blog.free.fr
|- http://bit.ly/b8wOqW : LondonR Rcpp slides
|- http://bit.ly/cCmbgg : Rcpp 0.8.6
`- http://bit.ly/bzoWrs : Rcpp svn revision 2000
_______________________________________________
Rcpp-devel mailing list
[email protected]
https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-devel
