Nothing
import_from <- function(name, mode = "function", default = NULL, package) {
ns <- getNamespace(package)
if (exists(name, mode = mode, envir = ns, inherits = FALSE)) {
get(name, mode = mode, envir = ns, inherits = FALSE)
} else if (!is.null(default)) {
default
} else {
stopf("No such '%s' %s: %s()", package, mode, name)
}
}
import_parallelly <- function(...) {
import_from(..., package = "parallelly")
}
## Keep until future.batchtools (> 0.11.0) is on CRAN
inRCmdCheck <- import_parallelly("inRCmdCheck")
## We are currently importing the following non-exported functions:
## * cluster futures:
## - parallel:::defaultCluster() ## non-critical / not really needed /
## ## can be dropped in R (>= 3.5.0)
## - parallel:::sendCall() ## run()
## - parallel:::recvResult() ## value()
## * multicore futures:
## - parallel:::selectChildren() ## resolved()
## - parallel:::rmChild() ## value()
## As well as the following ones (because they are not exported on Windows):
## * multicore futures:
## - parallel::mcparallel() ## run()
## - parallel::mccollect() ## value()
importParallel <- import_parallelly("importParallel")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.