> switch(x.sexp_type()) {
> case REALSXP:
> return wrap(unique1(as<NumericVector>(x)));
> break;
> case INTSXP:
> return wrap(unique1(as<IntegerVector>(x)));
> break;
> case CHARSXP:That should be STRSXP, of course. Hadley -- RStudio / Rice University http://had.co.nz/ _______________________________________________ Rcpp-devel mailing list Rcpp-devel@lists.r-forge.r-project.org https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-devel
