R/stopImplicitCluster2.R

In ymattu/mforeach: An easy way to parallel processing in R

#' Stop implicit cluster
#' @import parallel
#' @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)
  }
}