R/stopImplicitCluster2.R

In hoxo-m/pforeach: An easy way to parallel processing in R

#'Stop implicit cluster
#'
#'@export
stopImplicitCluster2 <- function() {
  options <- doParallel:::.options
  if (exists(".revoDoParCluster", where = options) &&
        !is.null(get(".revoDoParCluster", envir = options))) {
    parallel::stopCluster(get(".revoDoParCluster", envir = options))
    remove(".revoDoParCluster", envir = options)
  }
}