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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
#' @rdname BatchtoolsFuture
#' @export
BatchtoolsMultiprocessFuture <- 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, ...)
future <- structure(future, class = c("BatchtoolsMultiprocessFuture", class(future)))
future
}
#' @rdname BatchtoolsFuture
#' @export
BatchtoolsMulticoreFuture <- function(expr = NULL, substitute = TRUE, envir = parent.frame(), ...) {
if (substitute) expr <- substitute(expr)
assert_no_positional_args_but_first()
future <- BatchtoolsMultiprocessFuture(expr = expr, substitute = FALSE, envir = envir, ...)
future <- structure(future, class = c("BatchtoolsMulticoreFuture", class(future)))
future
}
#' @rdname BatchtoolsFuture
#' @export
BatchtoolsTemplateFuture <- function(expr = NULL, substitute = TRUE, envir = parent.frame(), ...) {
if (substitute) expr <- substitute(expr)
assert_no_positional_args_but_first()
future <- BatchtoolsMultiprocessFuture(expr = expr, substitute = FALSE, envir = envir, ...)
future <- structure(future, class = c("BatchtoolsTemplateFuture", class(future)))
future
}
#' @rdname BatchtoolsFuture
#' @export
BatchtoolsLsfFuture <- function(expr = NULL, substitute = TRUE, envir = parent.frame(), ...) {
if (substitute) expr <- substitute(expr)
future <- BatchtoolsTemplateFuture(expr = expr, substitute = FALSE, envir = envir, ...)
future <- structure(future, class = c("BatchtoolsLsfFuture", class(future)))
future
}
#' @rdname BatchtoolsFuture
#' @export
BatchtoolsOpenLavaFuture <- function(expr = NULL, substitute = TRUE, envir = parent.frame(), ...) {
if (substitute) expr <- substitute(expr)
assert_no_positional_args_but_first()
future <- BatchtoolsTemplateFuture(expr = expr, substitute = FALSE, envir = envir, ...)
future <- structure(future, class = c("BatchtoolsOpenLavaFuture", class(future)))
future
}
#' @rdname BatchtoolsFuture
#' @export
BatchtoolsSGEFuture <- function(expr = NULL, substitute = TRUE, envir = parent.frame(), ...) {
if (substitute) expr <- substitute(expr)
assert_no_positional_args_but_first()
future <- BatchtoolsTemplateFuture(expr = expr, substitute = FALSE, envir = envir, ...)
future <- structure(future, class = c("BatchtoolsSGEFuture", class(future)))
future
}
#' @rdname BatchtoolsFuture
#' @export
BatchtoolsSlurmFuture <- function(expr = NULL, substitute = TRUE, envir = parent.frame(), ...) {
if (substitute) expr <- substitute(expr)
future <- BatchtoolsTemplateFuture(expr = expr, substitute = FALSE, envir = envir, ...)
future <- structure(future, class = c("BatchtoolsSlurmFuture", class(future)))
future
}
#' @rdname BatchtoolsFuture
#' @export
BatchtoolsTorqueFuture <- function(expr = NULL, substitute = TRUE, envir = parent.frame(), ...) {
if (substitute) expr <- substitute(expr)
assert_no_positional_args_but_first()
future <- BatchtoolsTemplateFuture(expr = expr, substitute = FALSE, envir = envir, ...)
future <- structure(future, class = c("BatchtoolsTorqueFuture", class(future)))
future
}
|
