R/plapply.R

plapply<-function(X, FUN, ...){
if (exists("parLapply") & exists(".GlobalEnv$cl"))
  {o<-parLapply(.GlobalEnv$cl,X, FUN,...)}
else
  {o<-lapply(X, FUN,...)}
o
}

Try the gada package in your browser

Any scripts or data that you put into this service are public.

gada documentation built on May 2, 2019, 6:10 p.m.