daemons force

shikokuchuo · Dec 30, 2024 · 406050f · 406050f
1 parent e4ca031
commit 406050f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/daemons.R b/R/daemons.R
@@ -291,7 +291,7 @@ daemons <- function(n, url = NULL, remote = NULL, dispatcher = TRUE, ...,
       `[[<-`(.., .compute, `[[<-`(`[[<-`(envir, "sock", sock), "n", launches))
       if (length(remote))
         launch_remote(n = n, remote = remote, tls = envir[["tls"]], ..., .compute = .compute)
-    } else {
+    } else if (force) {
       daemons(0L, .compute = .compute)
       return(daemons(n = n, url = url, remote = remote, dispatcher = dispatcher, ...,
                      seed = seed, tls = tls, pass = pass, .compute = .compute))