runCompare <<- function(name){
setwd(paste0("../", name, "/"))
stopifnot(require("testthat"),
require("IBTSindices"))
source("../compareRuns.R")
source("script.R")
load("runExpected.Rdata")
compareRuns(run, runExp)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.