library(testthatsomemore)
touch_file <- function(file, time = "1 minute from now") {
testthatsomemore::pretend_now_is(time, {
Sys.setFileTime(file, Sys.time())
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.