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"))
}) 

Try the optiRum package in your browser

Any scripts or data that you put into this service are public.

optiRum documentation built on May 5, 2022, 1:05 a.m.