tests/testthat/test-ggseg.R

In neuroconductor-releases/ggseg: Plotting tool for brain atlases

test_that("Check that ggseg ggplot object is correct", {
  expect_is(ggseg(),c("gg","ggplot"))

  p <- ggseg()

  # should be a list of 9
  # a ggplot object should be a list of 9
  expect_equal(mode(p), "list")
  expect_equal(length(p), 9)
  expect_equal(length(p$scales$scales), 2)

  ## p$data
  expect_equal(dim(p$data)[1], 9583)
  expect_equal(colnames(p$data)[1], "atlas")

  ## p$layers
  # should have a defined number of layers
  expect_equal(length(p$layers), 1)
  # https://stackoverflow.com/questions/13457562/how-to-determine-the-geom-type-of-each-layer-of-a-ggplot2-object/43982598#43982598
  # layer should be a specific geom
  expect_equal(class(p$layers[[1]]$geom)[1], "GeomPolygon")
  # if there are multiple layers we can test more than one...

  ## p$labels
  # should have x but not y labels
  expect_equal(p$labels$x, "hemisphere")
  expect_equal(p$labels$y, NULL)
})


test_that("Check that ggseg is working", {
  expect_is(ggseg(),c("gg","ggplot"))
  expect_is(
    ggseg(data=data.frame(
      region = c("transverse temporal", "insula",
               "precentral","superior parietal"),
      p = sample(seq(0,.5,.001), 4),
      stringsAsFactors = FALSE),mapping=aes(fill=p)),
    c("gg","ggplot"))

  expect_is(ggseg(atlas = dk, mapping=aes(fill=region), position="stacked"),
            c("gg","ggplot"))

  expect_warning(ggseg(atlas = aseg, position="stacked"))

  expect_warning(
    ggseg(.data=data.frame(
      region = c("transverse tempral", "insula",
               "pre central","superior parietal"),
      p = sample(seq(0,.5,.001), 4),
      stringsAsFactors = FALSE),mapping=aes(fill=p))
  )

  expect_is(ggseg(hemisphere = "left", adapt_scales = T),c("gg","ggplot"))
  expect_is(ggseg(hemisphere = "right", adapt_scales = T),c("gg","ggplot"))
  expect_is(ggseg(view = "lateral", adapt_scales = T),c("gg","ggplot"))
  expect_is(ggseg(view = "medial", adapt_scales = T),c("gg","ggplot"))

})

test_that("Check that plotting non ggseg_atlas-class tries conversion", {
  atlas <- unnest(dk, ggseg)

  expect_warning(p <- ggseg(atlas=atlas))

  expect_is(p, c("gg","ggplot"))

})

test_that("Check brain stacking", {

  expect_warning(p <- ggseg(position = "rr"), "Cannot recognise position")
  expect_is(p, c("gg","ggplot"))

  expect_is(ggseg(position = "stack"), c("gg","ggplot"))
  expect_is(ggseg(position = "stacked"), c("gg","ggplot"))
  expect_is(ggseg(position = "disperse"), c("gg","ggplot"))
  expect_is(ggseg(position = "dispersed"), c("gg","ggplot"))

})