test_that("list input & output widgets", {
sleep_on_ci()
app <- ShinyDriver$new(test_path("apps/081-widgets-gallery"))
widgets <- app$listWidgets()
inputs <- widgets$input
expect_equal(
sort(inputs),
sort(c("action", "checkbox", "checkGroup", "date", "dates", "file",
"num", "radio", "select", "slider1", "slider2", "text"))
)
outputs <- widgets$output
expect_equal(
sort(outputs),
sort(c("actionOut", "checkboxOut", "checkGroupOut", "dateOut",
"datesOut", "fileOut", "numOut", "radioOut", "selectOut",
"slider1Out", "slider2Out", "textOut"))
)
})
test_that("warn for multiple widgets sharing an ID", {
sleep_on_ci()
expect_warning(
ShinyDriver$new(test_path("apps/id-conflicts-1")),
"Possible duplicate input widget ids: select"
)
## Actually apps, with duplicate output widget ids do not load currently
sleep_on_ci()
expect_error(
ShinyDriver$new(test_path("apps/id-conflicts-2"), loadTimeout = 2000),
"Shiny app did not load"
)
sleep_on_ci()
expect_warning(
ShinyDriver$new(test_path("apps/id-conflicts-3")),
"Widget ids both for input and output: widget"
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.