tests/testthat/test-shiny.R

test_that("app ui", {
  ui <- app_ui()
  expect_is(ui, "shiny.tag.list")
})

test_that("app server", {
  server <- app_server
  expect_is(server, "function")
})
poissonconsulting/shinyutils documentation built on Nov. 14, 2021, 8:18 p.m.