1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#' @rdname BatchtoolsFuture
#' @export
BatchtoolsUniprocessFuture <- function(expr = NULL, substitute = TRUE, envir = parent.frame(), ...) {
if (substitute) expr <- substitute(expr)
assert_no_positional_args_but_first()
future <- BatchtoolsFuture(expr = expr, substitute = FALSE, envir = envir, ..., workers = 1L)
future <- structure(future, class = c("BatchtoolsUniprocessFuture", class(future)))
future
}
#' @rdname BatchtoolsFuture
#' @export
BatchtoolsLocalFuture <- function(expr = NULL, substitute = TRUE, envir = parent.frame(), ...) {
if (substitute) expr <- substitute(expr)
assert_no_positional_args_but_first()
future <- BatchtoolsUniprocessFuture(expr = expr, substitute = FALSE, envir = envir, ...)
future <- structure(future, class = c("BatchtoolsLocalFuture", class(future)))
future
}
#' @rdname BatchtoolsFuture
#' @export
BatchtoolsInteractiveFuture <- function(expr = NULL, substitute = TRUE, envir = parent.frame(), ...) {
if (substitute) expr <- substitute(expr)
assert_no_positional_args_but_first()
future <- BatchtoolsUniprocessFuture(expr = expr, substitute = FALSE, envir = envir, ...)
future <- structure(future, class = c("BatchtoolsInteractiveFuture", class(future)))
future
}
|
