# # context("app-function")
# # This file is for testing the applications in the inst/ directory.
#
# library(shinytest)
#
# test_that("shiny app works", {
# # Don't run these tests on the CRAN build servers
# skip_on_cran()
#
# # 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.
# appdir <- system.file(package = "TreeData", "app")
# expect_pass(testApp(appdir, compareImages = FALSE))
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.