tests/testthat/test_switch_colour.R

In inbo/INBOtheme: Themes for ggplot2

test_that("switchColour", {
  colour <- "#012345"
  switch_colour(colour)
  expect_identical(ggplot2::GeomAbline$default_aes$colour, colour)
  expect_identical(ggplot2::GeomArea$default_aes$fill, colour)
  expect_identical(ggplot2::GeomBar$default_aes$fill, colour)
  expect_identical(ggplot2::GeomBoxplot$default_aes$colour, colour)
  expect_identical(ggplot2::GeomContour$default_aes$colour, colour)
  expect_identical(ggplot2::GeomCrossbar$default_aes$colour, colour)
  expect_identical(ggplot2::GeomDensity$default_aes$colour, colour)
  expect_identical(ggplot2::GeomDensity2d$default_aes$colour, colour)
  expect_identical(ggplot2::GeomDotplot$default_aes$colour, colour)
  expect_identical(ggplot2::GeomErrorbar$default_aes$colour, colour)
  expect_identical(ggplot2::GeomErrorbarh$default_aes$colour, colour)
  expect_identical(ggplot2::GeomHex$default_aes$colour, colour)
  expect_identical(ggplot2::GeomHline$default_aes$colour, colour)
  expect_identical(ggplot2::GeomLine$default_aes$colour, colour)
  expect_identical(ggplot2::GeomLinerange$default_aes$colour, colour)
  expect_identical(ggplot2::GeomMap$default_aes$colour, colour)
  expect_identical(ggplot2::GeomPath$default_aes$colour, colour)
  expect_identical(ggplot2::GeomPoint$default_aes$colour, colour)
  expect_identical(ggplot2::GeomPointrange$default_aes$colour, colour)
  expect_identical(ggplot2::GeomPolygon$default_aes$colour, colour)
  expect_identical(ggplot2::GeomQuantile$default_aes$colour, colour)
  expect_identical(ggplot2::GeomRaster$default_aes$fill, colour)
  expect_identical(ggplot2::GeomRect$default_aes$fill, colour)
  expect_identical(ggplot2::GeomRibbon$default_aes$fill, colour)
  expect_identical(ggplot2::GeomRug$default_aes$colour, colour)
  expect_identical(ggplot2::GeomSegment$default_aes$colour, colour)
  expect_identical(ggplot2::GeomSmooth$default_aes$colour, colour)
  expect_identical(ggplot2::GeomStep$default_aes$colour, colour)
  expect_identical(ggplot2::GeomText$default_aes$colour, colour)
  expect_identical(ggplot2::GeomLabel$default_aes$colour, colour)
  expect_identical(ggplot2::GeomTile$default_aes$fill, colour)
  expect_identical(ggplot2::GeomText$default_aes$colour, colour)
  expect_identical(ggplot2::GeomViolin$default_aes$colour, colour)
  expect_identical(ggplot2::GeomVline$default_aes$colour, colour)

  colour <- inbo_steun_geelgroen
  switch_colour(colour)
  expect_identical(ggplot2::GeomAbline$default_aes$colour, colour)
  expect_identical(ggplot2::GeomArea$default_aes$fill, colour)
  expect_identical(ggplot2::GeomBar$default_aes$fill, colour)
  expect_identical(ggplot2::GeomBoxplot$default_aes$colour, colour)
  expect_identical(ggplot2::GeomContour$default_aes$colour, colour)
  expect_identical(ggplot2::GeomCrossbar$default_aes$colour, colour)
  expect_identical(ggplot2::GeomDensity$default_aes$colour, colour)
  expect_identical(ggplot2::GeomDensity2d$default_aes$colour, colour)
  expect_identical(ggplot2::GeomDotplot$default_aes$colour, colour)
  expect_identical(ggplot2::GeomErrorbar$default_aes$colour, colour)
  expect_identical(ggplot2::GeomErrorbarh$default_aes$colour, colour)
  expect_identical(ggplot2::GeomHex$default_aes$colour, colour)
  expect_identical(ggplot2::GeomHline$default_aes$colour, colour)
  expect_identical(ggplot2::GeomLine$default_aes$colour, colour)
  expect_identical(ggplot2::GeomLinerange$default_aes$colour, colour)
  expect_identical(ggplot2::GeomMap$default_aes$colour, colour)
  expect_identical(ggplot2::GeomPath$default_aes$colour, colour)
  expect_identical(ggplot2::GeomPoint$default_aes$colour, colour)
  expect_identical(ggplot2::GeomPointrange$default_aes$colour, colour)
  expect_identical(ggplot2::GeomPolygon$default_aes$colour, colour)
  expect_identical(ggplot2::GeomQuantile$default_aes$colour, colour)
  expect_identical(ggplot2::GeomRaster$default_aes$fill, colour)
  expect_identical(ggplot2::GeomRect$default_aes$fill, colour)
  expect_identical(ggplot2::GeomRibbon$default_aes$fill, colour)
  expect_identical(ggplot2::GeomRug$default_aes$colour, colour)
  expect_identical(ggplot2::GeomSegment$default_aes$colour, colour)
  expect_identical(ggplot2::GeomSmooth$default_aes$colour, colour)
  expect_identical(ggplot2::GeomStep$default_aes$colour, colour)
  expect_identical(ggplot2::GeomText$default_aes$colour, colour)
  expect_identical(ggplot2::GeomTile$default_aes$fill, colour)
  expect_identical(ggplot2::GeomText$default_aes$colour, colour)
  expect_identical(ggplot2::GeomViolin$default_aes$colour, colour)
  expect_identical(ggplot2::GeomVline$default_aes$colour, colour)
})