tests/testthat/test-golem-recommended.R

context("golem tests")

library(golem)

if (FALSE) {
  test_that("app ui", {
    ui <- app_ui()
    expect_shinytaglist(ui)
  })
}


test_that("app server", {
  server <- app_server
  expect_is(server, "function")
})

unlink("Rplots.pdf")
steverozen/mSigAct.server documentation built on July 9, 2023, 4:52 a.m.