copyFiles <- function(from, to) {
# From should be a directory relative to ./tests/testFiles
from <- file.path("./tests/testFiles", from)
listOfFiles <- list.files(from, full.names = TRUE, recursive = TRUE)
file.copy(listOfFiles, to)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.