tests/testthat/testlayout.R

context("app-file")
library(shinytest)
test_that("layoutApp_testing", {
  skip_on_cran()
  appDir <- system.file("layout", package = "grapesAgri1")
  expect_pass(testApp(appDir, compareImages = FALSE))
})

Try the grapesAgri1 package in your browser

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

grapesAgri1 documentation built on Aug. 14, 2021, 5:07 p.m.