Nothing
context("Filterable")
test_that("is_filter() works", {
fil <- function(event) { blubb }
expect_true(is_filter(fil))
expect_false(is_filter(mean))
expect_false(is_filter("blubb"))
assert_filter(fil)
expect_error(
assert_filter(mean),
regexp = "mean",
class = "ObjectIsNoFilterError"
)
})
test_that("Filterable: $add_filter(), $remove_filter(), $filters", {
app <- Appender$new()
fil <- function(event) { FALSE }
expect_error(app$add_filter(mean))
app$add_filter(fil)
expect_identical(app$filters[[1]], fil)
expect_false(app$filter())
app$remove_filter(1)
expect_length(app$filters, 0)
expect_true(app$filter())
app$add_filter(fil, "foo")
expect_identical(app$filters[[1]], fil)
app$remove_filter("foo")
expect_length(app$filters, 0)
fil <- function(event) { NA }
app$add_filter(fil, "foo")
app$add_filter(fil, "foo")
expect_warning(expect_true(app$filter()))
})
test_that("Filterable: $set_filter works with functions", {
app <- Appender$new()
fil <- function(event) { FALSE }
app$set_filters(fil)
expect_identical(app$filters[[1]], fil)
expect_length(app$filters, 1L)
app$set_filters(list(fil))
expect_identical(app$filters[[1]], fil)
expect_length(app$filters, 1L)
app$set_filters(list(fil, fil))
expect_identical(app$filters[[1]], fil)
expect_identical(app$filters[[2]], fil)
expect_length(app$filters, 2L)
})
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.