```
context("findDescendant")
data("tinyTree")
test_that("findDescendant return error when the node is not in the tree", {
expect_error(findDescendant(node = 20, tree = tinyTree, only.leaf = TRUE))
expect_error(findDescendant(node = 2, tree = 2, only.leaf = TRUE))
})
test_that("findDescendant could find descendant leaves correctly", {
expect_findDescendant_leaf_expect_equal <- function(node, truth) {
x <- findDescendant(node = node, tree = tinyTree,
only.leaf = TRUE, self.include = TRUE)[[1]]
expect_equal(x, truth)
}
expect_findDescendant_leaf_expect_equal(15, 4:9)
expect_findDescendant_leaf_expect_equal(13, 1:3)
expect_findDescendant_leaf_expect_equal(18, 4:5)
expect_findDescendant_leaf_expect_equal(11, 1:10)
})
test_that("findDescendant could find all descendant nodes correctly", {
expect_findDescendant_leaf_expect_equal <- function(node, truth) {
x <- findDescendant(node = node, tree = tinyTree,
only.leaf = FALSE, self.include = FALSE)[[1]]
expect_equal(x, truth)
}
expect_findDescendant_leaf_expect_equal(15, c(4:9,16:19))
expect_findDescendant_leaf_expect_equal(17, c(4:6,18))
expect_findDescendant_leaf_expect_equal(11, c(1:10, 12:19))
})
test_that("findDescendant could include the input node in the result", {
expect_findDescendant_leaf_expect_equal <- function(node, truth) {
x <- findDescendant(node = node, tree = tinyTree,
only.leaf = TRUE, self.include = TRUE)[[1]]
expect_equal(x, truth)
}
expect_findDescendant_leaf_expect_equal(5, 5)
expect_findDescendant_leaf_expect_equal(17, c(4:6))
})
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.