Nothing
library(future.tests)
library(future)
test_plans <- test_plans()
print(test_plans)
add_test_plan(plan(future:::constant))
add_test_plan(plan(sequential))
add_test_plan(plan(multisession, workers = 1L))
add_test_plan(plan(multisession, workers = 2L))
test_plans <- test_plans()
print(test_plans)
stopifnot(length(test_plans) == 4L)
res <- along_test_plans({ 42L })
print(res)
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.