Nothing
make_test(title = "value() - visibility", tags = c("value", "visibility"), {
f <- future(42)
res <- withVisible({
value(f)
})
v <- res$value
stopifnot(identical(v, 42))
stopifnot(res$visible)
f <- future(invisible(42))
res <- withVisible({
value(f)
})
v <- res$value
stopifnot(identical(v, 42))
stopifnot(!res$visible)
})
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.