tests/testthat/test-get_color.R

test_that("get_color works", {
    cols  <- get_color("amwg_blueyellowred", n = 20)
    cols2 <- get_color(rcolors$amwg_blueyellowred, n = 20)
    expect_equal(cols, cols2)
})

Try the rcolors package in your browser

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

rcolors documentation built on April 23, 2021, 5:07 p.m.