tests/testthat/test-35-swatch.R

context("Graphics")

test_that("the swatch function works", {
    expect_null(swatch(c("red", "green", "blue")))
    grDevices::dev.off()
    
    expect_null(swatch(saturation(brightness(c("red", "green", "blue"), c(0.25,0.75)), c(0.25,0.75))))
    grDevices::dev.off()
})

Try the shades package in your browser

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

shades documentation built on Aug. 2, 2019, 5:05 p.m.