tests/testthat/test-z-which-scale.R

In jpmarindiaz/paletero: Color palettes and scales.

# test_that("Which color scale", {
#
#   library(paletero)
#
#   v <- sample(letters[1:5], 10, replace = TRUE)
#   which_color_scale(v)
#   expect_equal(which_color_scale(v),"cat")
#
#
#
#
# })