box::use(
shiny[testServer],
testthat[describe, expect_identical, it],
)
box::use(
app/view/hello[server],
)
describe("hello$server()", {
it("should print the correct message", {
testServer(server, {
session$setInputs(name = "Rhino", say_hello = 1)
expect_identical(output$message, "Hello, Rhino!")
})
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.