library(shinytest)
library(testthat)
context("Test Shiny app")
skip_on_os("windows")
skip_on_os("mac")
# open Shiny app and PhantomJS
app <- ShinyDriver$new(system.file("deploy/server", package = "dynguidelines"))
Sys.sleep(5)
test_that("A methods table is returned", {
app$setInputs(multiple_disconnected = "TRUE")
app$setInputs(multiple_disconnected = "FALSE")
app$setInputs(expect_topology = "TRUE")
app$setInputs(expected_topology = "linear")
app$setInputs(expect_topology = "FALSE")
app$setInputs(expect_cycles = "TRUE")
app$setInputs(expect_cycles = "FALSE")
app$setInputs(expect_complex_tree = "FALSE")
app$setInputs(expect_complex_tree = "TRUE")
app$setInputs(time = "\U221E")
app$setInputs(memory = "\U221E")
app$setInputs(n_cells = "1")
app$setInputs(n_features = "1")
app$setInputs(n_cells = "10000000")
app$setInputs(n_features = "10000000")
app$setInputs(dynmethods = "TRUE")
app$setInputs(dynmethods = "FALSE")
app$setInputs(programming_interface = "TRUE")
app$setInputs(languages = c("python", "R"))
app$setInputs(languages = c())
app$setInputs(programming_interface = "FALSE")
# test show/hide columns
app$executeScript("$('a[data-target=\"#columns\"]').trigger('click')")
Sys.sleep(1)
# get text_out
output <- app$getValue(name = "methods_table")
# test
expect_is(output, "character")
})
# stop the Shiny app
app$stop()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.