library(testthat)
# parse the package name from the parent directory path (necessary because
# normal tests and R CMD Check tests are run from different directories)
x <- unlist(strsplit(gsub("(\\.Rcheck/tests)?$", "", getwd()), "/"))
pkgName <- x[length(x)]
library(pkgName, character.only = TRUE)
test_check(pkgName)
# [END]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.