test_that("Config", {
g <- g2(cars, asp(dist, speed)) %>%
fig_point(config("POINT"))
expect_equal(g$x$views[[1]]$conf$id, "POINT")
expect_snapshot(config())
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.