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"))
}) 
jumpingrivers/optiRum documentation built on March 6, 2024, 7:27 p.m.