require(rredis)
checkEquals <- function(x, y) if(!isTRUE(all.equal(x, y, check.attributes=FALSE))) stop()
if(Sys.getenv("RunRRedisTests") == "yes")
{
redisConnect()
redisFlushAll()
checkEquals("OK", redisEval("return redis.call('set','foo','bar')"))
redisFlushAll()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.