library(sqldf)
library(svUnit)
sqldf.tests <- system.file("unitTests", "runit.all.R", package = "sqldf")
cat("Running:", sqldf.tests, "\n")
source(sqldf.tests)
clearLog()
test.all()
Log()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.