context("test-plot_scatter")
test_that("plot_scatter works", {
expect_is(plot_scatter(iris, Sepal.Length, Sepal.Width),
class = c("gg", "ggplot"))
expect_is(plot_scatter(iris, Sepal.Length, Sepal.Width, .by = Species),
class = c("gg", "ggplot"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.