Nothing
#' @rdname hidden_aliases
#' @usage NULL
dbListObjects_DBIConnection_ANY <- function(conn, prefix = NULL, ...) {
names <- dbListTables(conn)
tables <- lapply(names, function(x) Id(table = x))
ret <- data.frame(
table = I(unname(tables)),
stringsAsFactors = FALSE
)
ret$is_prefix <- rep_len(FALSE, nrow(ret))
ret
}
#' @rdname hidden_aliases
#' @export
setMethod("dbListObjects", signature("DBIConnection", "ANY"), dbListObjects_DBIConnection_ANY)
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.