context("dygraph")
test_that("dygraph creation", {
expect_is(dygraph(ldeaths), class = "dygraphs")
expect_identical(dygraph(ldeaths, xlab = "x")$x$attrs$xlabel, "x")
expect_identical(dygraph(ldeaths, ylab = "y")$x$attrs$ylabel, "y")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.