tests/testthat/test-function-plot_number_of_elements_per_folder.R

test_that("plot_number_of_elements_per_folder() works", {

  f <- kwb.fakin:::plot_number_of_elements_per_folder

  expect_error(f())

  capture.output(x <- kwb.fakin:::to_tree(c("a/b/c", "a/b/d", "a/b/e/f")))

  f(x)
})
KWB-R/kwb.fakin documentation built on June 14, 2022, 2 p.m.