Nothing
context("billboarder")
test_that("billboarder works", {
bb <- billboarder()
expect_is(bb, "billboarder")
})
test_that("billboarder with list works", {
bb <- billboarder(list(
data = list(
json = list(
x = 1:10
),
type = "bar"
)
))
expect_is(bb, "billboarder")
})
test_that("billboarder empty (function) works", {
options("bb.empty" = bb_empty)
bb <- billboarder()
expect_is(bb, "billboarder")
})
test_that("billboard_dependency works", {
bbdeps <- billboard_dependencies()
expect_is(bbdeps, "html_dependency")
})
test_that("billboard_dependency works", {
bbhtml <- billboarder_html(id = "id", style = "style", class = "class")
expect_is(bbhtml, "shiny.tag")
})
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.