mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-08 05:35:07 -05:00
13 lines
311 B
R
13 lines
311 B
R
context("apps")
|
|
|
|
if (dir.exists("apps")) {
|
|
app_dirs <- Filter(dir.exists, dir("apps", full.names = TRUE))
|
|
if (length(app_dirs) > 0) {
|
|
for (app_dir in app_dirs) {
|
|
test_that(basename(app_dir), {
|
|
shinytest::expect_pass(shinytest::testApp(app_dir, compareImages = FALSE))
|
|
})
|
|
}
|
|
}
|
|
}
|