Merge pull request #2 from meantrix/stopcluster

fix stop cluster

Author: igor-siciliani

.Rbuildignore

@@ -0,0 +1,2 @@
+^.*\.Rproj$
+^\.Rproj\.user$

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)

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)