R/RepParallel.R

In bhattacharya-a-bt/MOSTWAS: Multi-Omic Strategies for Transcriptome-Wide Association Studies

#' Parallel implementation of replicate()
#'
#' The function parallelizes replicate(), as in dbframe-R-library
#'
#' @param n number of replications
#' @param expr expression
#' @param simplify character, simplify to array
#'
#' @return array of replications
#'
#'
#' @export
RepParallel <- function(n,
                        expr,
                        simplify = "array",
                        mc.cores = 1) {
  answer <- parallel::mclapply(integer(n),
                               eval.parent(substitute(function(...) expr)),
                               mc.cores = mc.cores)
  if (!identical(simplify, FALSE) && length(answer))
    return(simplify2array(answer, higher = (simplify == "array")))
  else return(answer)
}