test_db_path <- system.file("extdata/dbns.sqlite", package = "dbns")
db <- DBI::dbConnect(RSQLite::SQLite(), test_db_path)
tblnames <- DBI::dbListTables(db)
test_db_name <- "test.db"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.