tests/testthat/test-palette_diverging.R

test_that("palette diverging", {

  colors <- c('green', 'red')

  palette_diverging(colors, n = 5)
  palette_diverging(colors, n = 7)

  expect_error(palette_diverging(colors, n = 1))
  expect_error(palette_diverging(colors, n = 10))


})
jpmarindiaz/paletero documentation built on March 11, 2024, 6:42 a.m.