Nothing
sql_statement <- function(s) {
sql_dir <- file.path(system.file(package = "dbi.table"), "sql_statements")
f <- file.path(sql_dir, paste(s, "sql", sep = "."))
DBI::SQL(readChar(f, file.info(f)$size))
}
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.