# helper to get test files
test_files <- function(subdir, fname = NULL) {
if (!is.null(fname)) {
testthat::test_path("files", subdir, fname)
} else {
testthat::test_path("files", subdir)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.