Nothing
context("bauge")
test_that("bauge works", {
b <- bauge(value = 45, min = 0, max = 100, colors = "#123456")
expect_is(b, "bauge")
expect_is(b$x, "list")
expect_identical(b$x$data$json$value[[1]], expected = 45)
})
test_that("bauge-shiny works", {
server <- renderBauge(bauge())
ui <- baugeOutput(outputId = "bb")
expect_is(ui, "shiny.tag.list")
expect_true(length(htmltools::findDependencies(ui)) >= 2)
expect_is(server, "function")
})
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.