context("Effects")
allowed_effects <- list("negate", "charcoal", "edge", "despeckle", "reduce_noise")
test_that("All allowed effects are present", {
expect_equal(effects_list(), allowed_effects)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.