tests/testthat/test-theme_optimum.R

context("theme_optimum")
library("ggplot2")

test_that("theme_optimum - correct behaviour, defaults", {
    p <- ggplot_build(qplot(1:3, 1:3) + theme_optimum())
    expect_true(attr(p$plot$theme, "complete"))
}) 
stephlocke/optiRum documentation built on March 11, 2024, 2:25 a.m.