tests/testthat/test-compiler-guides.R

context("Guides")

test_that("colourbar trains without labels", {
  g <- guide_colorbar()
  sc <- scale_colour_continuous(limits = c(0, 4), labels = NULL)

  out <- guide_train(g, sc)
  expect_equal(names(out$key), c("colour", ".value"))
})
tdhock/animint2 documentation built on April 14, 2024, 4:22 p.m.