#' @export
reset <- function(qry, ...) UseMethod("reset", qry)
#' @export
reset.FltQuery <-
function(qry)
{
qry$queryset <- list(
select = list(),
groupBy = list(),
orderBy = list(),
distinct = TRUE,
format = "none"
)
qry$columns <- list()
qry
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.