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-devel-releases/ggseg documentation built on May 28, 2020, 3:09 a.m.