tests/testthat/test-get_data.R

In movementsync: Analysis and Visualisation of Musical Audio and Video Movement Synchrony Data

test_that("The start and end of a time series are identified", {
  dfr <- data.frame(a = c(NA, 1, 2, NA), b = c(NA, NA, NA, NA), c = 1:4,
                    d = c(1:3, NA), e = c(NA, 2, NA, 3))
  se_dfr <- get_start_end(dfr)
  expected_dfr <- data.frame(Start = c(2, NA, 1, 1, 2), End = c(3, NA, 4, 3, 4))
  rownames(expected_dfr) <- colnames(dfr)

  expect_equal(se_dfr, expected_dfr)

})