/usr/share/doc/r-cran-dplyr/tests/testthat/test-between.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 | context("between")
test_that("returns NA if any argument is NA", {
expect_equal(between(1, 1, NA), NA)
expect_equal(between(1, NA, 1), NA)
expect_equal(between(NA, 1, 1), NA)
})
test_that("compatible with base R", {
x <- runif(1e3)
expect_equal(between(x, 0.25, 0.5), x >= 0.25 & x <= 0.5)
})
test_that("warns when called on S3 object", {
expect_warning(between(factor(1:5), 1, 3), "numeric vector with S3 class")
})
test_that("unless it's a date or date time", {
expect_warning(between(Sys.Date(), 1, 3), NA)
expect_warning(between(Sys.time(), 1, 3), NA)
})
|