Nothing
# last modified 28 November 2008 by J. Fox
with.odbcDataset <-
function(data, expr, rows, ...){
vars <- all.vars(substitute(expr))
cols <- vars[vars %in% names(data)]
Data <- if (missing(rows)) data[, cols, drop=FALSE]
else data[rows, cols, drop=FALSE]
eval(substitute(expr), Data)
}
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.