[Rcpp-devel] Feedining an IntegerVector into Rcout?

[Romain Francois]

This is not implemented. You can use Rf_PrintValue( out ) which prints 
just like R's print.

Le 17/11/12 00:28, Søren Højsgaard a écrit :
> Dear list,
>
> Sorry for a trivial question: I have created the function below which calls "match" on each vector in a list and returns the result as a list. The function does what I want it to, but I am puzzled by this:
>
> + IntegerVector out = R_match(wrap(ee), V_);
> + Rcout << out << std::endl;
>
> which prints
>
> 0xca858e0
> 0xca85cd0
> 0xd715d80
> 0xd715db8
>
> - which proves that there is something not clear to me: Can't I print an entire vector with Rcout - or must I exctract each element and print separately (which seems kludgy)?
>
> Best regards
> Søren
>
>
>
>> get_index_ <- cxxfunction(signature(x_ = "SEXP", V_="SEXP"), plugin = "Rcpp",
> + body = '
> +     using namespace Rcpp;
> +     using namespace std;
> + Function R_match("match");
> + CharacterVector V(V_);
> + List x(x_);
> + List res=List::create();
> + for (int ii=0; ii<x.length(); ii++){
> + CharacterVector ee = as<CharacterVector>(x[ii]);
> + IntegerVector out = R_match(wrap(ee), V_);
> + Rcout << out << std::endl;
> + res.push_back(out);
> + }
> + return(wrap(res));
> + ')
>>
>> get_index_(list(c("a","b"),c("b","c"), c("a","c","e"), c("a","c","q")), letters[1:10])
> 0xca858e0
> 0xca85cd0
> 0xd715d80
> 0xd715db8
> [[1]]
> [1] 1 2
>
> [[2]]
> [1] 2 3
>
> [[3]]
> [1] 1 3 5
>
> [[4]]
> [1]  1  3 NA


-- 
Romain Francois
Professional R Enthusiast
+33(0) 6 28 91 30 30

R Graph Gallery: http://gallery.r-enthusiasts.com
`- http://bit.ly/SweN1Z : SuperStorm Sandy

blog:            http://romainfrancois.blog.free.fr
|- http://bit.ly/RE6sYH : OOP with Rcpp modules
`- http://bit.ly/Thw7IK : Rcpp modules more flexible