test_that("reactives update", {
testServer(expr = {
session$setInputs(bins = 5)
expect_equal(bins(), seq(43, 96, length.out = 6))
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.