logResults <- function(result, fileName, objName, text = FALSE) {
object <- list()
object$directory <- file.path(directories$testingDir, 'results')
object$fileName <- fileName
object$objName <- objName
object$data <- result
if (text) {
saveFile(object)
} else {
saveObject(object)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.