parallel_sort

run.R

Rcpp::sourceCpp('t.cpp')

x <- runif(1000000)
m <- microbenchmark::microbenchmark(
  psort(x),
  csort(x),
  sort(x)
)

x <- 1000000:1
m <- microbenchmark::microbenchmark(
  psort(x),
  csort(x),
  sort(x)
)

t.c

// [[Rcpp::depends(RcppParallel)]]
#include <Rcpp.h>
#include <RcppParallel.h>
using namespace Rcpp;

// This is a simple example of exporting a C++ function to R. You can
// source this function into an R session using the Rcpp::sourceCpp 
// function (or via the Source button on the editor toolbar). Learn
// more about Rcpp at:
//
//   http://www.rcpp.org/
//   http://adv-r.had.co.nz/Rcpp.html
//   http://gallery.rcpp.org/
//

// [[Rcpp::export]]
NumericVector psort(NumericVector x) {
  NumericVector y = clone(x);
  tbb::parallel_sort(y.begin(), y.end());
  return y;
}

// [[Rcpp::export]]
NumericVector csort(NumericVector x) {
  NumericVector y = clone(x);
  std::sort(y.begin(), y.end());
  return y;
}