test.samples <- function(){
## Test import whether sample data exist
path_list <- pathList()
checkTrue(all(file.exists(unlist(path_list))))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.