Nothing
#' @importFrom dplyr show_query
#' @export
show_query.tbl_lazy <- function(x, ..., cte = FALSE, sql_options = NULL) {
withr::local_options(list(dbplyr_use_colour = TRUE))
sql <- remote_query(x, cte = cte, sql_options = sql_options)
cat_line("<SQL>")
cat_line(sql)
invisible(x)
}
#' @importFrom dplyr explain
#' @export
explain.tbl_sql <- function(x, ...) {
force(x)
show_query(x)
cat_line()
cat_line("<PLAN>")
cat_line(remote_query_plan(x, ...))
invisible(x)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.