test_that("gradient functions", {
for (f in list(blueYellow, purpleOrange)) {
x <- f(n = 3L)
expect_true(allAreHexColors(x))
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.