Nothing
require(sqlutils)
require(RSQLite)
sqlfile <- paste(system.file(package='sqlutils'), '/db/students.db', sep='')
m <- dbDriver("SQLite")
conn <- dbConnect(m, dbname=sqlfile)
hist <- isql(conn=conn, sql=getSQL('StudentSummary'))
names(hist)
hist[['commands']]
hist[['sql']]
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.