/usr/share/doc/r-cran-dplyr/tests/testthat/test-window.R is in r-cran-dplyr 0.7.4-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | context("Window functions")
test_that("If n = 0, lead and lag return x", {
expect_equal(lead(1:2, 0), 1:2)
expect_equal(lag(1:2, 0), 1:2)
})
test_that("If n = length(x), returns all missing", {
miss <- rep(NA_integer_, 2)
expect_equal(lead(1:2, 2), miss)
expect_equal(lag(1:2, 2), miss)
})
test_that("cumany handles NA (#408)", {
batman <- c(NA, NA, NA, NA, NA)
expect_true(all(is.na(cumany(batman))))
expect_true(all(is.na(cumall(batman))))
x <- c(FALSE, NA)
expect_true(all(!cumall(x)))
x <- c(TRUE, NA)
expect_true(all(cumany(x)))
})
test_that("percent_rank ignores NAs (#1132)", {
expect_equal(percent_rank(c(1:3, NA)), c(0, 0.5, 1, NA))
})
test_that("cume_dist ignores NAs (#1132)", {
expect_equal(cume_dist(c(1:3, NA)), c(1 / 3, 2 / 3, 1, NA))
})
test_that("cummean is not confused by FP error (#1387)", {
a <- rep(99, 9)
expect_true(all(cummean(a) == a))
})
test_that("order_by() returns correct value", {
expected <- int(15, 14, 12, 9, 5)
expect_identical(order_by(5:1, cumsum(1:5)), expected)
x <- 5:1; y <- 1:5
expect_identical(order_by(x, cumsum(y)), expected)
})
test_that("order_by() works in arbitrary envs (#2297)", {
env <- child_env("base")
expect_equal(
with_env(env, dplyr::order_by(5:1, cumsum(1:5))),
rev(cumsum(rev(1:5)))
)
expect_equal(
order_by(5:1, cumsum(1:5)),
rev(cumsum(rev(1:5)))
)
})
test_that("order_by() fails when not supplied a call (#3065)", {
expect_error(order_by(NULL, !! 1L), "`call` must be a function call, not an integer vector")
})
|