1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#' Control lazy / eager evaluation for a future assignment
#'
#' @usage fassignment \%lazy\% lazy
#'
#' @param fassignment The future assignment, e.g.
#' \code{x \%<-\% \{ expr \}}.
#' @inheritParams multiprocess
#'
#' @export
`%lazy%` <- function(fassignment, lazy) {
fassignment <- substitute(fassignment)
envir <- parent.frame(1)
## Temporarily set 'lazy' argument
args <- getOption("future.disposable", list())
args["lazy"] <- list(lazy)
options(future.disposable = args)
eval(fassignment, envir = envir, enclos = baseenv())
}
|
