skipIfNoRedis <- function() {
if(!redux::redis_available()) {
testthat::skip("Redis is not available")
}
}
testReduxConnection <- function() {
skipIfNoRedis()
return(redux::hiredis())
}
cleanQueue <- function(reduxConn, queue) {
reduxConn$DEL(queue)
expect_equal(reduxConn$LLEN('testThatQueue'), 0)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.