R/stopImplicitCluster.R

Defines functions stopImplicitCluster

stopImplicitCluster <- function(){
  .options <- doParallel:::.options 
  if(exists(".revoDoParCluster", where=.options) && 
       !is.null(.options[['.revoDoParCluster']]))
  {
    stopCluster(.options[['.revoDoParCluster']])
    remove('.revoDoParCluster', envir=.options)
  }
}
Bioconductor-mirror/TPP documentation built on July 7, 2017, 11:01 p.m.