execute <- function (query, into, argument = NULL, ...) {
confirmSqlr(query)
if (!is.function(into))
throwError('You must provide a function.')
query_text <- build(query, FALSE)
if (is.null(argument)) {
into(query_text)
} else {
arguments <- c(setNames(list(query_text), argument), ...)
do.call(into, arguments)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.