tests/testthat/test-function-plot_path_network.R

In KWB-R/fakin.path.app: Shiny App to Visualise File Paths

test_that("plot_path_network() works", {

  f <- fakin.path.app:::plot_path_network

  expect_error(f())

  paths <- c("a/b/c", "a/b/d", "a/b/e/f")

  f(paths, method = 1)
  f(paths, method = 2)

  f(paths, names_to_colours = NULL, height = "200px")
})