Nothing
access <-
function(tickers, start, end, data)
{
datelist = seq(as.Date(start), as.Date(end), by="day")
dat = data[as.character(datelist), tickers]
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.