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
|
# 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")
)
})
|
