Nothing
`columnDescriptions` <-
function(sqlite_db_name='GEOmetadb.sqlite') {
con <- dbConnect(SQLite(),sqlite_db_name)
dat <- dbGetQuery(con,'select * from geodb_column_desc')
dbDisconnect(con)
return(dat)
}
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.