test_that("Indexing multi-graphs as adjacency list", {
g <- make_graph(~ A -+ B:C, A -+ B:C:D, simplify = FALSE)
e <- g[["A", "B", edges = TRUE]]
expect_equal(ignore_attr = TRUE, sort(e[[1]]), E(g)[1, 3])
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.