gganimate/tests/testthat/test-view-step-manual.R at 756e4985e9b6407ca4c9722a7628b71f3c349542 · thomasp85/gganimate · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
# Helper: create a 2-window ViewStepManual object and run setup_params
step_manual_params <- function(wrap, pause_first) {
  vsm <- view_step_manual(
    wrap = wrap, pause_first = pause_first,
    xmin = c(1, 4), xmax = c(7, 7), ymin = 0, ymax = 2.5
  )
  vsm$setup_params(NULL, vsm$params)
}

# --- Phase structure (setup_params) ---
# Each phase is a (pause, step) pair. pause_length and step_length should
# reflect the minimum number of phases needed for the given wrap/pause_first.

test_that("wrap=FALSE pause_first=FALSE produces 2 phases: transition then pause", {
  p <- step_manual_params(wrap = FALSE, pause_first = FALSE)
  expect_equal(p$pause_length, c(0, 1))
  expect_equal(p$step_length,  c(1, 0))
})

test_that("wrap=FALSE pause_first=TRUE produces 2 phases: pause-transition then pause", {
  p <- step_manual_params(wrap = FALSE, pause_first = TRUE)
  expect_equal(p$pause_length, c(1, 1))
  expect_equal(p$step_length,  c(1, 0))
})

test_that("wrap=TRUE pause_first=FALSE produces 2 phases: transition then pause+transition", {
  p <- step_manual_params(wrap = TRUE, pause_first = FALSE)
  expect_equal(p$pause_length, c(0, 1))
  expect_equal(p$step_length,  c(1, 1))
})

test_that("wrap=TRUE pause_first=TRUE produces 2 phases: both with transitions for wrap", {
  p <- step_manual_params(wrap = TRUE, pause_first = TRUE)
  expect_equal(p$pause_length, c(1, 1))
  expect_equal(p$step_length,  c(1, 1))
})

# --- Frame allocation (distribute_frames) ---
# nframes chosen to divide cleanly across phases (no rounding artefacts).

test_that("wrap=FALSE pause_first=FALSE: frames split equally between transition and pause", {
  # total weight = 2, nframes = 100 -> 50 frames each
  p <- step_manual_params(wrap = FALSE, pause_first = FALSE)
  frames <- gganimate:::distribute_frames(p$pause_length, p$step_length, 100)
  expect_equal(frames$static_length,     c(0,  50))
  expect_equal(frames$transition_length, c(50,  0))
})

test_that("wrap=FALSE pause_first=TRUE: frames split equally across pause, transition, pause", {
  # total weight = 3, nframes = 99 -> 33 frames each
  p <- step_manual_params(wrap = FALSE, pause_first = TRUE)
  frames <- gganimate:::distribute_frames(p$pause_length, p$step_length, 99)
  expect_equal(frames$static_length,     c(33, 33))
  expect_equal(frames$transition_length, c(33,  0))
})

test_that("wrap=TRUE pause_first=FALSE: frames split equally across transition, pause, transition", {
  # total weight = 3, nframes = 99 -> 33 frames each; no trailing w1 pause
  p <- step_manual_params(wrap = TRUE, pause_first = FALSE)
  frames <- gganimate:::distribute_frames(p$pause_length, p$step_length, 99)
  expect_equal(frames$static_length,     c( 0, 33))
  expect_equal(frames$transition_length, c(33, 33))
})

test_that("wrap=TRUE pause_first=TRUE: frames split equally across pause, transition, pause, transition", {
  # total weight = 4, nframes = 100 -> 25 frames each
  p <- step_manual_params(wrap = TRUE, pause_first = TRUE)
  frames <- gganimate:::distribute_frames(p$pause_length, p$step_length, 100)
  expect_equal(frames$static_length,     c(25, 25))
  expect_equal(frames$transition_length, c(25, 25))
})