inst/app/tests/run_shinyTest.R

In vici: Vaccine Induced Cellular Immunogenicity with Bivariate Modeling

library(testthat)
library(shinytest)

test_that("Application works", {
  # Use compareImages=FALSE because the expected image screenshots were created
  # on a Mac, and they will differ from screenshots taken on the CI platform,
  # which runs on Linux.
  expect_pass(testApp(appDir = "../"))#,compareImages = FALSE))
  #expect_pass(testApp("../","shinytests/mytest.R",compareImages = FALSE))
})