Merge pull request #2 from meantrix/stopcluster

fix stop cluster
meantrix · Mar 17, 2020 · a2a76dd · a2a76dd
2 parents ba3b08c + ab42437
commit a2a76dd
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 8 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -0,0 +1,2 @@
+^.*\.Rproj$
+^\.Rproj\.user$
diff --git a/NAMESPACE b/NAMESPACE
@@ -1,7 +1,4 @@
-exportPattern("^[[:alpha:]]+")
-import(stats)
-import(lsr)
-import(foreach)
-import(parallel)
-import(doParallel)
-import(caret)
+# Generated by roxygen2: do not edit by hand
+
+export(corrP)
+export(rh_corrP)
diff --git a/R/corrP.R b/R/corrP.R
@@ -196,10 +196,12 @@ cor_fun <- Vectorize(cor_fun, vectorize.args=c("pos_1", "pos_2"))
 
     doParallel::registerDoParallel(min(parallel::detectCores(),n.cores))
     corrmat<-cor_par(df,p.value=p.value)
+    #force stop
     env <- foreach:::.foreachGlobals
     rm(list=ls(name=env), pos=env)
+    doParallel::stopImplicitCluster()
 
-  } else {
+    } else {
   # sequential corr matrix
   corrmat <- outer(1:NCOL(df)
                    , 1:NCOL(df)