#File: test_blocks.R
context("blocks tests")
block <- LoadBlock("https://lists.blocklist.de/lists/apache.txt", 8)
test_that("LoadBlock returns expected data for Apache",{
expect_is(block, "data.frame")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.