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