Forgot to add file

Author: HenrikBengtsson

R/backend_api-BatchtoolsMultiprocessFutureBackend.R

@@ -0,0 +1,21 @@
+#' @export
+nbrOfWorkers.BatchtoolsMultiprocessFutureBackend <- function(evaluator) {
+  backend <- evaluator
+  workers <- backend[["workers"]]
+  if (!is.numeric(workers)) {
+    workers <- length(workers)
+  }
+  workers
+}
+
+
+#' @export
+nbrOfFreeWorkers.BatchtoolsMultiprocessFutureBackend <- function(evaluator, background = FALSE, ...) {
+  assert_no_positional_args_but_first()
+  backend <- evaluator
+  reg <- backend[["reg"]]
+  usedWorkers <- length(FutureRegistry(reg, action = "list"))
+  workers <- nbrOfWorkers() - usedWorkers
+  stop_if_not(length(workers) == 1L, !is.na(workers), workers >= 0L)
+  workers
+}