From c683837720dae35cc9d6226279d6d70974def1b5 Mon Sep 17 00:00:00 2001
From: prdm0 <pedro.rafael.marinho@gmail.com>
Date: Tue, 23 Apr 2024 13:50:07 -0300
Subject: [PATCH] Update accept_reject

---
 R/accept_reject.r | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/accept_reject.r b/R/accept_reject.r
index 88ed4e7..fac4d3c 100644
--- a/R/accept_reject.r
+++ b/R/accept_reject.r
@@ -245,7 +245,7 @@ accept_reject <-
           mc.cores = n_cores
           )))
     } else if(parallel && .Platform$OS.type == "windows"){
-      cl <- parallel::makeCluster(getOption("cl.cores", 2L))
+      cl <- parallel::makeCluster(getOption("cl.cores", 1L))
       capture.output(
         r <- unlist(parallel::parLapply(
           X = n_each_core,