Nothing
context("bb_add_style")
test_that("bb_add_style works", {
bb <- billboarder() %>%
bb_add_style(
region = list(region1 = "fill:red"),
x_grid = list(x1 = "stroke:red"),
y_grid = list(y1 = "stroke:blue"),
"bb-line" = "stroke: green",
.list = list("bb-line" = "stroke: green")
)
expect_is(bb, "billboarder")
expect_length(bb$x$bb_opts$customStyle, 5)
})
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.