#' @include redis_backend.R
BACKENDS = list(
"redis"=RedisBackend
)
backend = function(url) {
params = parse_url(url)
provider = params$provider
params$provider = NULL
params <- params[!is.na(params)]
return(
do.call(BACKENDS[[provider]]$new, params)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.