context("Basic checks to make sure the testing itself is working")
a <- 5
test_that("A test to see the testing system is working. This test should pass.",
expect_that(a*5, equals(25)))
test_that("A test to see the testing system is working. This test should fail.",
expect_that(a*5, equals(26)))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.