#Creates the query list appropriately.
#' @importFrom stats setNames
query_list <- function(...){
a <- list(...)
as.list(
setNames(
unlist(a), rep(names(a), sapply(a, length))))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.