logTests <- function(class, mthd, note) {
newPost <- data.frame(date = Sys.time(),
class = class,
method = mthd,
note = note)
if (!exists("testLog")) {
testLog <<- newPost
} else {
testLog <<- rbind(testLog, newPost)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.