tests/testthat/test-theme_brain.R

context("test-theme_brain")

test_that("Check that themes are working", {
  expect_is(ggseg() + theme_brain(),c("gg","ggplot"))
  expect_is(ggseg() + theme_darkbrain(),c("gg","ggplot"))
  expect_is(ggseg() + theme_custombrain(),c("gg","ggplot"))
})
neuroconductor-releases/ggseg documentation built on Oct. 30, 2020, 11:08 p.m.