tests/testthat/test-s3-ggplot2-GuideColourbar.R

In constructive: Display Idiomatic Code to Construct Most R Objects

test_that("GuideColourbar", {
  skip_if_not_installed("ggplot2")
  skip_if(with_versions(ggplot2 <= "3.5.2"))
  expect_construct(ggplot2::guide_colorbar())
  expect_construct(ggplot2::guide_colourbar(), ggplot2::guide_colorbar())
  expect_construct(
    ggplot2::guide_colorbar(theme = ggplot2::theme(
      legend.key.height = grid::unit(10, "lines"),
      legend.key.width  = grid::unit(0.5,"lines")
    ))
  )
  expect_construct(
    ggplot2::guide_colorbar(nbin = 100, draw.llim = FALSE, draw.ulim = FALSE)
  )
})