Fixing issue #41 on netdist

filosi · Jan 25, 2018 · 0239551 · 0239551
1 parent 8d357f8
commit 0239551
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ipsen_function.R b/R/ipsen_function.R
@@ -76,7 +76,7 @@ ipsen <- function(object, ga=NULL, ...){
       return(list(myomega,myk))
     }, mygamma=optgamma, laplist=laplist, ...)
   }
-  if (exists("cl")){
+  if (exists("cl") & nrow(showConnections()) > 0){
     clusterEvalQ(cl,{
       mydistfun <- function(a,b, optgamma){
         integrand <- function(omega, mygamma, given_omega_G, given_omega_H){