Adding workaround for parallelization on Windows (#46)

Not as elegant as simply using `makeCluster()`, but this avoids rewriting some unit tests. May be improved in the future.
ocbe-uio · Aug 20, 2024 · 8406510 · 8406510
1 parent 22be22e
commit 8406510
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/MADMMplasso.R b/R/MADMMplasso.R
@@ -214,7 +214,11 @@ MADMMplasso <- function(X, Z, y, alpha, my_lambda = NULL, lambda_min = 0.001, ma
 
   # Pre-calculating my_values through my_values_matrix
   if (parallel) {
-    cl <- parallel::makeForkCluster(cl1)
+    if (.Platform$OS.type == "unix") {
+      cl <- parallel::makeForkCluster(cl1)
+    } else {
+      cl <- parallel::makeCluster(cl1)
+    }
     doParallel::registerDoParallel(cl = cl)
     foreach::getDoParRegistered()
     if (legacy) {