Nothing
#' @rdname SQLiteConnection-class
#' @usage NULL
dbListTables_SQLiteConnection <- function(conn, ...) {
rs <- sqliteListTables(conn)
on.exit(dbClearResult(rs), add = TRUE)
dbFetch(rs)$name
}
#' @rdname SQLiteConnection-class
#' @export
setMethod("dbListTables", "SQLiteConnection", dbListTables_SQLiteConnection)
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.