library(testthat)
skip_if_not(identical(Sys.getenv("TRAVIS"), "true"))
context("Travis CI integration")
test_that("Validation Key is correct (for Travis CI)", {
folder <- ifelse(file.exists("DESCRIPTION"),".","../../")
expect_true(lucode:::validkey(folder)$valid)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.