#' Internal function used for clearing the tempdir() when testing
#' @export
.clear_tempdir <- function() {
unlink(dir(tempdir(), full.names = TRUE), recursive = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.