tests/testthat/test-camera.R

In ggseg3d: Interactive 3D Brain Atlas Visualization

test_that("pan_camera works", {
  p <- ggseg3d() |>
    pan_camera("right lateral")

  expect_s3_class(p, c("ggseg3d", "htmlwidget"))
  expect_equal(p$x$options$camera, "right lateral")

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

  expect_equal(p$x$options$camera, "right medial")

  p <- ggseg3d() |>
    pan_camera("left lateral")

  expect_equal(p$x$options$camera, "left lateral")

  p <- ggseg3d() |>
    pan_camera("left medial")

  expect_equal(p$x$options$camera, "left medial")

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

  expect_equal(
    p$x$options$camera,
    list(eye = list(x = -3, y = -4, z = -1))
  )
})

test_that("default camera is right lateral", {
  p <- ggseg3d()
  expect_equal(p$x$options$camera, "right lateral")
})