context("test-r-palettes")
testthat::test_that("Palette is outputting correctly", {
expect_equal(HS_pal()(6), c("#4BD963", "#6B6666", "#2A7535", "#CCFFD4", "#FFFFFF", "#48804C"))
})
testthat::test_that("Palette is outputting correctly", {
expect_identical(HS_cols("color1"), c(`color1` = "#4BD963"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.