tests/testthat/test-theme_gc.R

test_that("theme_gc() works", {
  p <- ggplot(iris, aes(Petal.Length, Petal.Width, color = Species)) + geom_point() + theme_gc()
  #expect_true(p$theme$axis.title.y$inherit.blank)
  expect_equal(p$axis.title.y, NULL)
})
mikeasilva/gcplot2 documentation built on March 30, 2021, 12:55 p.m.