demos <- list.files(path="../demo",pattern=".*\\.R$",full.names = TRUE)
oreadline <- readline
for(f in demos){
test_that(paste0("demo ", gsub("^.*/","",f), "runs"), {
cat(paste0("running demo ", gsub("^.*/","",f), "\n"))
readline <- function(x) cat(paste0(x," \n"))
source(f)
})
}
readline <- oreadline
options(debugSQL=F)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.