TEST: scale_params "binned" mapping method

Author: zeehio

tests/testthat/test-scale-colour-continuous.R

@@ -47,3 +47,11 @@ test_that("palette with may_return_NA=FALSE works as expected", {
   nat <- sc$map(0.5, limits = c(0, 1))
   expect_equal(nat, NA_character_)
 })
+
+test_that("scale_params mapping_method supports binned", {
+  sc <- scale_fill_continuous()
+  x <- seq(0, 1, length.out = 10)
+  only_two <- sc$map(x, limits = c(0, 1), scale_params = list(mapping_method = "binned", mapping_method_bins = 2))
+  expect_equal(length(unique(only_two)), 2L)
+})
+