tests/testthat/test-brain-atlas-plots.R

In ggseg: Plotting Tool for Brain Atlases

context("brain_atlas-plots")
test_that("brain atlas plots work", {
  expect_doppelganger("brain atlas dk plot", plot(dk))
  expect_doppelganger(
    "brain atlas dk plot noleg",
    plot(dk, show.legend = FALSE)
  )
  expect_doppelganger(
    "brain atlas dk plot position",
    plot(dk, position = position_brain(hemi ~ side))
  )
  #
  #   expect_doppelganger("brain atlas aseg plot",
  #                       plot(aseg))

  k <- dk
  k$data$geometry <- NULL
  expect_error(plot(k), "cannot be plotted")
})