tests/testthat/test-dist.R

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")))
})

Try the colorblindcheck package in your browser

Any scripts or data that you put into this service are public.

colorblindcheck documentation built on May 31, 2023, 8:08 p.m.