R/methods.R

In promises: Abstractions for Promise-Based Asynchronous Programming

Defines functions print.promise format.promise

#' @export
format.promise <- function(x, ...) {
  p <- attr(x, "promise_impl", exact = TRUE)
  p$format()
}

#' @export
print.promise <- function(x, ...) {
  cat(paste(format(x), collapse = "\n"), "\n", sep = "")
}

Try the promises package in your browser