tests/testthat/test-get_color.R

test_that("get_color works", {
    cols <- get_color("amwg_blueyellowred", n = NULL, show = TRUE)
    cols  <- get_color("amwg_blueyellowred", n = 20)
    cols2 <- get_color(rcolors$amwg_blueyellowred, n = 20)
    expect_equal(cols, cols2)
})
rpkgs/rcolors documentation built on July 2, 2024, 8:26 a.m.