R/backend_api-ConstantFuture-class.R

In future: Unified Parallel and Distributed Processing in R for Everyone

# Used by getGlobalsAndPackages()
ConstantFuture <- function(..., globals = NULL, packages = NULL, stdout = NA, conditions = NULL, seed = NULL, lazy = FALSE, envir = emptyenv()) {
  future <- Future(..., NULL, packages = NULL, stdout = NA, conditions = NULL, seed = NULL, lazy = FALSE, envir = envir)
  t_start <- Sys.time()
  future[["result"]] <- FutureResult(
    value = eval(future[["expr"]], envir = envir),
    started = t_start,
    finished = t_start
  )
  future[["state"]] <- "finished"
  future <- structure(future, class = c("ConstantFuture", class(future)))
  future
}

#' @export
run.ConstantFuture <- function(future, ...) {
  future
}

#' @export
result.ConstantFuture <- function(future, ...) {
  future[["result"]]
}