tests/testthat/test-dropdownbutton.R

In gadenbuie/shinyThings: Reusable Shiny Modules and Other Shiny Things

context("test-dropdownButton")

library(shinytest)

test_that("dropdownButton module works", {
  skip_on_cran()
  skip_if_not(shinytest::dependenciesInstalled())

  appdir <- system.file("examples", "dropdownButton", package = "shinyThings")
  expect_pass(testApp(appdir, compareImages = FALSE))
})