context("Colors and palettes")
test_that("Test color palettes", {
skip_on_cran()
expect_true(all(is_color(cases_pal(1))))
expect_true(all(is_color(cases_pal(100))))
expect_true(all(is_color(spectral(1))))
expect_true(all(is_color(spectral(100))))
msg <- "n is not a number"
expect_error(cases_pal("asd"), msg)
})
test_that("Test transp", {
skip_on_cran()
col <- cases_pal(100)
expect_true(all(is_color(transp(col))))
})
test_that("Test fac2col", {
skip_on_cran()
x <- sample(letters[1:5], 50, replace = TRUE)
expect_true(all(is_color(fac2col(x))))
expect_length(fac2col(x), length(x))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.