test_that("The what_graph funciton works correctly", {
scatter <- what_graph(iris, Sepal.Length, Sepal.Width)
box <- what_graph(iris, Sepal.Length, Species)[3]
expect_equal(scatter, "Scatter Plot")
expect_equal(box, "Box Plot")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.