Nothing
make_closure <- function(fun, ...) {
data <- list(...)
mapply(assign, names(data), data, MoreArgs = list(pos = environment()))
environment(fun) <- environment()
fun
}
has_glpk <- make_closure(glpk = NULL, function() {
if (is.null(glpk)) {
glpk <<- tryCatch(
{
cluster_optimal(make_ring(10))
TRUE
},
error = function(e) FALSE
)
}
glpk
})
has_graphml <- make_closure(graphml = NULL, function() {
if (is.null(graphml)) {
graphml <<- tryCatch(
{
read_graph(rawConnection(charToRaw("<graphml><graph></graph></graphml>")), format = "graphml")
TRUE
},
error = function(e) FALSE
)
}
graphml
})
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.