test_that("flatten_tree() works", {
f <- kwb.fakin:::flatten_tree
expect_error(f())
paths <- c("a/b", "a/c", "a/d/e/f")
capture.output(tree <- kwb.fakin:::to_tree(paths))
expect_identical(f(paths), paths)
expect_identical(f(tree), paths)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.