".onUnload" <- function(libpath) {
if (exists(".revoDoParCluster", where=1) && !is.null(.revoDoParCluster)) {
stopCluster(.revoDoParCluster)
remove(".revoDoParCluster", where=1)
}
}
".onUnload" <- function(libpath) {
if (exists(".revoDoParCluster", where=1) && !is.null(.revoDoParCluster)) {
stopCluster(.revoDoParCluster)
remove(".revoDoParCluster", where=1)
}
}