如何使用parlappy将参数从外部函数传递到内部函数

我试图创建一个执行并行引导例程的R函数,但在parlappy中传递函数参数时遇到了困难。 下面是一个(希望如此)可重复的示例,其中集群无法找到参数的值:

innerFun <- function(a=rnorm(10), q=0.5){
  quantile(a, probs = q)
}

library(parallel)
bootFun <- function(a=rnorm(10), q=0.5, nperm=10, no_cores = detectCores() - 1){

  parFun <- function(x){
    set.seed(x)
    ai <- sample(a, size=length(a), replace = TRUE)
    return(innerFun(a=ai, q=q))
  }

  ARGS <- list("innerFun", "a", "q", "nperm")

  cl <- parallel::makeCluster(no_cores, type="PSOCK")
  nn <- split(1:nperm, 1:nperm)
  parallel::clusterExport(cl, varlist = ARGS)
  res <- parallel::parLapply(cl, nn, parFun)
  parallel::stopCluster(cl)

  res <- do.call("rbind", res)
  return(res)

}

set.seed(1)
res1 <- bootFun(a=rnorm(100), q=0.5, nperm=10, no_cores = detectCores() - 1)
# Error in get(name, envir = envir) : object 'a' not found