tests/testthat/test-app.R

context('app')

test_that("app works", {
  skip_on_cran()
  skip_on_travis()
  skip_on_appveyor()

  library(shinytest)
  app_dir <- system.file('target-app', package = 'target')
  expect_pass(testApp(app_dir, compareImages = FALSE))
})

Try the target package in your browser

Any scripts or data that you put into this service are public.

target documentation built on Nov. 8, 2020, 5:28 p.m.