tests/testthat/test-animation.R

In devOpifex/g2r: Interactive Grammar of Graphics

test_that("Animation", {
  anim <- Animation$
    new()$
    appear(
    duration = 2000,
    delay = 500
  )$
    update(
    duration = 2000,
    delay = 500
  )$
    enter(
    duration = 2000,
    delay = 500
  )$
    leave(
    duration = 2000,
    delay = 500
  )

  expect_length(anim$retrieve(), 4)

  g <- g2(iris, asp(Sepal.Length, Sepal.Width, color = Species)) %>%
    fig_point(anim)

  expect_length(g$x$views[[1]]$animation, 4)

  expect_snapshot(anim)
})