library(testthat)
current <- getwd()
print(current)
CODE <- paste0(current, "/R/")
TEST_FILES <- paste0(current, "/tests/testthat/")
auto_test(CODE, TEST_FILES)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.