fetchTables<-function(){
require(RMySQL)
my_db <-con_mysql()
get<-RMySQL::dbSendQuery(my_db,"show tables;")
out<-dbFetch(get)
dbClearResult(get)
dbDisconnect(my_db)
out[,1]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.