options(box.path = file.path(getwd()))
# remove box cache
loaded_mods <- loadNamespace("box")$loaded_mods
rm(list = ls(loaded_mods), envir = loaded_mods)
library(testthat)
test_dir("tests/testthat")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.