tests/testthat/test-shinytest.R
In igjit/lroom: An Amazing Shiny App
library(shinytest)
skip_on_covr()
app <- ShinyDriver$new(".")
test_that("contrast_ui works", {
output <- c("image_ui_1-image", "histogram_ui_1-histogram")
expectUpdate(app, "contrast_ui_1-contrast" = 1, output = output)
expectUpdate(app, "luminance_ui_1-luminance" = 1, output = output)
})
app$stop()
igjit/lroom documentation built on Nov. 4, 2019, 1:55 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(shinytest)
skip_on_covr()
app <- ShinyDriver$new(".")
test_that("contrast_ui works", {
output <- c("image_ui_1-image", "histogram_ui_1-histogram")
expectUpdate(app, "contrast_ui_1-contrast" = 1, output = output)
expectUpdate(app, "luminance_ui_1-luminance" = 1, output = output)
})
app$stop()
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.