context("Testing the range filter")
test_that("from string expression to range functions",
{
expect_true(inrange(1, "(0,10)"))
expect_true(!inrange(2, "(-10, 0); (2, 3)"))
expect_true(inrange(2, "(-10, 0); [2, 3)"))
expect_true(inrange(-1.2222, "[-1.2222, 0]"))
expect_true(!inrange(-1.2223, "[-1.2222, 0]"))
expect_error(inrange(1, "()"))
expect_error(inrange(1, "(xx, yy)"))
expect_error(inrange(1, "100, 10"))
expect_error(inrange(1, "(10, 1)"))
})
test_that("range filters",
{
tb$filter_range()
tb$filter_range()
})
test_that("all filters", {
tb$clean()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.