Nothing
context("area_plot")
test_that("area_plot works", {
g = area_plot(mtcars, "cyl", "1")
expect_equal(g[["data"]]$x, c(4, 6, 8))
expect_equal(g[["data"]]$y, c(11, 7, 14))
g = area_plot(mtcars, "cyl", "1", "am", position = "fill")
expect_equal(nrow(g$data), 6)
})
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.