Nothing
library(testthat)
context("Force")
test_that("All force", {
nodes <- sg_make_nodes(50)
edges <- sg_make_edges(nodes, 100)
sg <- sigmajs() %>%
sg_nodes(nodes, id, label, size) %>%
sg_edges(edges, id, source, target) %>%
sg_force() %>%
sg_force_stop()
expect_length(sg$x$force, 0)
expect_equal(sg$x$forceStopDelay, 5000)
expect_error(sg_force())
expect_error(sg_force_stop())
})
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.