tests/testthat/test-legend_LQ.R

test_that("legend_LQ returns a cowplot object", {
  res <- legend_LQ()
  expect_type(res, "list")
  expect_that(res, is_a("gtable") , label = "legend_LQ should return a gtable")
})
AnthonyDEBUR/tools4DCE documentation built on June 10, 2025, 8:56 a.m.