R/repeatFun.R

In twolodzko/boots: Nonparametric Bootstrap/Resampling-Based Time-Series Forecasting

#' @importFrom future plan multiprocess future_lapply availableCores


repeatFun <- function(n, FUN, workers = 1L) {
  if (workers > 1L) {
    plan(multiprocess, workers = workers)
    res <- future_lapply(1:n, FUN, future.seed = TRUE)
  } else {
    res <- lapply(1:n, FUN)
  }
  do.call(rbind, res)
}