context("shiny app")
library(shinytest)
shinytest::installDependencies()
testthat::test_that("shiny app runs",{
#skip_on_cran()
# appdir <- system.file(package="watlastools", "shiny_app")
shinytest::expect_pass(shinytest::testApp("apps/patch_vis_app/", compareImages = FALSE))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.