Nothing
test_that("identical_graphs works", {
g <- make_ring(5)
g2 <- make_ring(5)
expect_true(identical_graphs(g, g2))
g2 <- make_ring(6)
expect_false(identical_graphs(g, g2))
})
test_that("identical_graphs considers attributes", {
g <- barabasi.game(10)
g2 <- g
expect_true(identical_graphs(g, g2))
g2$m <- 2
expect_false(identical_graphs(g, g2))
expect_true(identical_graphs(g, g2, attrs = FALSE))
})
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.