context("Test get_senseBox_stats()")
test_that("Check output length and class", {
# testthat::skip_on_cran()
# testthat::skip_on_travis()
temp <- get_senseBox_stats()
expect_equal(class(temp), "data.frame")
expect_equal(dim(temp), c(3,2))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.