Nothing
test_that("unfold_tree works", {
g <- make_tree(7, 2)
g <- add_edges(g, c(2, 7, 1, 4))
g2 <- unfold_tree(g, roots = 1)
expect_true(graph.isomorphic(g2$tree, make_graph(c(
1, 2, 1, 3, 2, 8, 2, 5, 3, 6,
3, 9, 2, 7, 1, 4
))))
expect_that(g2$vertex_index, equals(c(1, 2, 3, 4, 5, 6, 7, 4, 7)))
})
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.