R/000.import.R

In future.apply: Apply Function to Elements in Parallel using Futures

import_from <- function(name, default = NULL, package) {
  ns <- getNamespace(package)
  if (exists(name, mode = "function", envir = ns, inherits = FALSE)) {
    get(name, mode = "function", envir = ns, inherits = FALSE)
  } else if (!is.null(default)) {
    default
  } else {
    stopf("No such '%s' function: %s()", package, name)
  }
}

import_future <- function(name, default = NULL) {
  import_from(name, default = default, package = "future")
}

import_base <- function(name, default = NULL) {
  import_from(name, default = default, package = "base")
}