并行运行`pbapply`不允许在环境外部写入

Question

请参阅下面的伪代码。如果我删除了pblapply()参数，则x1函数将写入cl = cores。

有没有办法强制这样做？

input <- c(1,2,3)
myfunc <- function(input) {
  x1 <- list()
  cores <- parallel::makeCluster(2)
  x2 <- unlist(pbapply::pblapply(cl = cores,
                                   input,
                                   function(i) {
                                     x1[[i]] <<- i+3
                                     return(i)
                                   }
  ))
  return(c(x1,x2))
}
myfunc(input)