Nothing
# Test evenly
test_that("evenly with by works", {
expect_silent(x <- evenly(1987:1999, by = 2))
expect_identical(length(x), 7L)
expect_identical(seq(1987, 1999, by = 2), x)
expect_silent(x <- evenly(1987:1999, by = 2, lower = 1990))
expect_identical(length(x), 5L)
expect_identical(seq(1990, 1999, by = 2), x)
expect_silent(x <- evenly(1987:1999, by = 2, upper = 1997))
expect_identical(length(x), 6L)
expect_identical(seq(1987, 1997, by = 2), x)
})
test_that("seq min max with by works", {
expect_silent(x <- seq_min_max(1987:1999, by = 2))
expect_identical(length(x), 7L)
expect_identical(seq(1987, 1999, by = 2), x)
expect_silent(x <- seq_min_max(1987:1999, by = 2, lower = 1990))
expect_identical(length(x), 5L)
expect_identical(seq(1990, 1999, by = 2), x)
expect_silent(x <- seq_min_max(1987:1999, by = 2, upper = 1997))
expect_identical(length(x), 6L)
expect_identical(seq(1987, 1997, by = 2), x)
})
test_that("ref_level works", {
f <- factor(sample(letters[1:5], 100, replace = TRUE),
levels = letters[1:5]
)
expect_silent(rl <- ref_level(f))
expect_identical(factor("a", levels = letters[1:5]), rl)
expect_error(ref_level(1:10), "'fct' must be a factor")
})
test_that("ref_level works", {
f <- factor(sample(letters[1:5], 100, replace = TRUE),
levels = letters[1:5]
)
expect_silent(rl <- level(f, "b"))
expect_identical(factor("b", levels = letters[1:5]), rl)
expect_error(level(1:10), "'fct' must be a factor")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.