tests/testthat/test-labour_ui.R

test_that("labour_ui() returns a Shiny tag and Shiny tag lists", {
  ui <- labour_ui()
  expect_s3_class(ui, c("shiny.tag"))
})
djpr-data/djprlabourdash documentation built on April 28, 2023, 6:16 p.m.