Nothing
context("palette_dist")
test_that("dist is calculated", {
expect_equal(dim(palette_dist(rainbow_pal)), c(7, 7))
expect_equal(dim(palette_dist(rainbow_pal)), dim(palette_dist(rainbow_pal, cvd = "deu")))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.