library(testthat)
context("Checking the data")
test_that("Correct data connected:", {
data(nlp)
data(publications)
expect_equal(nrow(nlp), 87181)
expect_is(publications, "character")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.