tests/testthat/test-data_shift.R

In easystats/datawizard: Easy Data Wrangling and Statistical Transformations

# numeric
test_that("slide", {
  x <- c(10, 11, 12)
  expect_equal(slide(x), c(0, 1, 2))

  x <- c(10, 11, 12)
  expect_equal(slide(x, lowest = 10), x)

  x <- c(10, 11, 12)
  expect_equal(slide(x, lowest = 1), c(1, 2, 3))

  x <- c(10, 11, NA, 12)
  expect_equal(slide(x, lowest = 1), c(1, 2, NA, 3))
})

# factor
test_that("slide", {
  data(efc)
  expect_message(expect_equal(slide(efc$e42dep), efc$e42dep))
})

# data frame
test_that("slide", {
  data(iris)
  out <- slide(iris)
  expect_equal(out$Species, iris$Species)
  expect_equal(range(out$Sepal.Length), c(0, 3.6), tolerance = 1e-2)
})

# select helpers ------------------------------
test_that("slide regex", {
  expect_equal(
    slide(mtcars, select = "pg", regex = TRUE),
    slide(mtcars, select = "mpg")
  )
})