Nothing
toXts <- function(stock.df){
stock.matrix <- as.matrix(stock.df[,-1]);
colnames(stock.matrix) <- c("Open", "High", "Low", "Close", "Volume", "AdjClose")
rownames(stock.matrix) <- as.character(stock.df$date)
stock.xts <- as.xts(stock.matrix, descr='stock xts data')
stock.xts
}
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.