Nothing
context("test_tree_shinytest")
library(shiny)
library(jsonlite)
library(shinytest)
library(testthat)
# open Shiny app and PhantomJS
Sys.setenv(http_proxy="") #run successfully under a proxy
app <- try(ShinyDriver$new(test_path("apps/test_selec")),
silent = TRUE)
test_that("interactive_tests", {
skip_on_cran()
skip_if(inherits(app, "try-error"), "ShinyDriver could not be started. Are you sitting behind a proxy?")
x <- app$getAllValues()
expect_true(x$input$action == 0)
expect_equal(x$output$sel_names,
paste0("[[1]]\n[1] \"root1\"\nattr(,\"ancestry\")\ncharacter(0)\n",
"attr(,\"stselected\")\n[1] TRUE\nattr(,\"stchecked\")\n[1] FALSE\n")
)
expect_equal(x$output$sel_classid, "[[1]]\n[1] \"root1\"\nattr(,\"id\")\n[1] \"1\"\n")
expect_equal(x$output$sel_slices, "[[1]]\n[[1]]$root1\n[1] 0\n\n")
app$setInputs(
action = "click"
)
x <- app$getAllValues()
expect_true(x$input$action == 1)
expect_equal(x$output$sel_names,
paste0("[[1]]\n[1] \"leaf1\"\nattr(,\"ancestry\")\n[1] \"root2\" \"SubListA\"\n",
"attr(,\"stselected\")\n[1] TRUE\nattr(,\"stchecked\")\n[1] FALSE\n")
)
expect_equal(x$output$sel_classid, "[[1]]\n[1] \"leaf1\"\nattr(,\"id\")\n[1] \"4\"\n")
expect_equal(x$output$sel_slices, "[[1]]\n[[1]]$root2\n[[1]]$root2$SubListA\n[[1]]$root2$SubListA$leaf1\n[1] 0\n\n\n\n")
})
if (!inherits(app, "try-error")) {
app$stop()
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.