#' @export
tbl.DBIConnection <- function(src, from, ...) {
check_dbplyr()
tbl(dbplyr::src_dbi(src, auto_disconnect = FALSE), from = from, ...)
}
#' @export
copy_to.DBIConnection <- function(dest, df, name = deparse(substitute(df)),
overwrite = FALSE, ...) {
check_dbplyr()
copy_to(
dbplyr::src_dbi(dest, auto_disconnect = FALSE),
df = df,
name = name,
overwrite = overwrite,
...
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.