inst/patch_vis_app/tests/test-func_runApp.r

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))
})
pratikunterwegs/watlasUtils documentation built on Nov. 9, 2021, 12:26 a.m.