tests/testthat/test-camera.R

In LCBC-UiO/ggseg3d: Tri-Surface Mesh Plots for Brain Atlases

test_that("pan_camera works", {
  p <- ggseg3d() %>%
    pan_camera("right lat")

  expect_true("layoutAttrs" %in% names(p$x))

  expect_equal(p$x$layoutAttrs[[1]]$scene$camera ,
               list(eye = list(x = 2, y = 0, z = 0))
               )

  p <- ggseg3d() %>%
    pan_camera("right medial")

  expect_true("layoutAttrs" %in% names(p$x))

  expect_equal(p$x$layoutAttrs[[1]]$scene$camera ,
               list(eye = list(x = -2.5, y = 0, z = 0))
  )


  p <- ggseg3d() %>%
    pan_camera("left lat")

  expect_true("layoutAttrs" %in% names(p$x))

  expect_equal(p$x$layoutAttrs[[1]]$scene$camera ,
               list(eye = list(x = -2.5, y = 0, z = 0))
  )

  p <- ggseg3d() %>%
    pan_camera("left med")

  expect_true("layoutAttrs" %in% names(p$x))

  expect_equal(p$x$layoutAttrs[[1]]$scene$camera ,
               list(eye = list(x = 2, y = 0, z = 0))
  )

  p <- ggseg3d() %>%
    pan_camera(camera = list(eye = list(x = -3, y = -4, z = -1)))

  expect_true("layoutAttrs" %in% names(p$x))

  expect_equal(p$x$layoutAttrs[[1]]$scene$camera ,
               list(eye = list(x = -3, y = -4, z = -1))
  )
})