tests/testthat/test-le_theme.R

In miguelayalar/leplot: Create ggplot2 charts in Layman Economics style

test_that("le_theme works", {
  p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()

  p_le <- p + le_theme()

  expect_s3_class(p_le,
                  "gg")
  expect_s3_class(le_theme(),
                  "theme")
})