context("Test child data")
test_that("Verify correct child data is returned", {
tree <- GeneralTree$new(0, "parent1")
tree$addNode(0, "a", "child.a")
tree$addNode(0, "b", "child.b")
tree$addNode("b", "c", "child.b.c")
tree$addNode("b", "d", "child.b.d")
tree$addNode("c", "e", "child.c.e")
tree$addNode("c", "f", "child.c.f")
tree$addNode("c", "g", "child.c.g")
expect_identical(tree$searchNode("b")$getChildData(),
list("child.b.c", "child.b.d"))
expect_identical(tree$searchNode("c")$getChildData(),
list("child.c.e", "child.c.f", "child.c.g"))
expect_identical(tree$searchNode("c")$getChildId(),
list("e", "f", "g"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.