R/RepParallel.R

In grayclhn/dbframe-R-library: An R to SQL interface

## Copyright (C) 2010-2015 Gray Calhoun; MIT license

    RepParallel <- function(n, expr, simplify = "array",...) {
      answer <-
        mclapply(integer(n), eval.parent(substitute(function(...) expr)),...)
      if (!identical(simplify, FALSE) && length(answer)) 
        return(simplify2array(answer, higher = (simplify == "array")))
      else return(answer)
    }