unpak.db.structure <-
function(con=unpak.get.con())
{
tables <- unpak.tables(con)
ret <- lapply(tables,function(x){list(table=x)})
names(ret) <- tables
lapply(ret,function(conn,x) {list(table=x$table,fields=dbListFields(conn,x$table))},conn=con)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.