update_history <-
function(tab, criterion, value) {
if (is.null(tab)) {
tab <- data.frame(Criterion = criterion,
Value = value)
} else {
tab <- rbind(tab, c(criterion, value))
}
return(tab)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.