context("Filters")
test_that("BasicFilter", {
expect_error(SymbolFilter())
expect_error(SymbolFilter(1, ">"))
expect_error(SymbolFilter(1, "foo"))
expect_error(TxEndFilter("foo"))
expect_error(TxEndFilter(c(1,2), ">"))
expect_error(SymbolFilter(c("foo","bar"), "startsWith"))
})
test_that("GRangesFilter", {
expect_error(GRangesFilter())
expect_error(GRangesFilter("foo"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.