test_that("plot_variation is OK", {
expect_null(plot_variation())
data <- "TEST"
data$value <- "1"
expect_null(plot_variation(input_data = data, type = "tmp"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.