问如何从Rcpp函数中并行调用用户定义的R函数？

EN

library(Rcpp)
library(future.apply)


userfunc<-function(x){
   Sys.sleep(1)
   return(x)
}
 

wrapperufpar<-function(xvec){
   plan(multisession)
   future_sapply(xvec, userfunc)
 } 
   cppFunction('NumericVector cppfunc(NumericVector xvec, Function ufunc) {
  NumericVector out(xvec.length());
  for (int i=0;i<xvec.length();i++){
   out(i)=as<double>(ufunc(xvec(i)));
   }
   return out;
 }')

 
cppFunction('NumericVector cppfuncpar(NumericVector xvec, Function ufuncw) {
  NumericVector out=as<NumericVector>(ufuncw(xvec));
   return out;
 }')

 cppfunc(1:10, userfunc)
 [1]  1  2  3  4  5  6  7  8  9 10
 cppfuncpar(1:10, wrapperufpar)
 [1]  1  2  3  4  5  6  7  8  9 10
 
 microbenchmark::microbenchmark(wrapperufpar(1:10),
                                sapply(1:10, userfunc),
                                cppfunc(1:10, userfunc),
                                cppfuncpar(1:10, wrapperufpar),
                                times=10)

                       expr       min        lq      mean    median
    wrapperufpar(1:10)  4.372158  4.456099  4.488181  4.477420
    sapply(1:10, userfunc) 10.002320 10.003834 10.005113 10.004944
    cppfunc(1:10, userfunc) 10.002743 10.004133 10.005217 10.004824
    cppfuncpar(1:10, wrapperufpar)  4.434338  4.475258  4.490961  4.491418


       uq       max neval
 4.548762  4.564422    10
10.006996 10.007854    10
10.006614 10.008436    10
 4.509277  4.545920    10