Nothing
addRingSeries <- function(xray, x) {
for (i in 1:length(x)) {
xray$limits <- limits <- sort(c(xray$limits, round(x[i])))
xray$years <- years <- c(xray$years[1] - 1, xray$years)
xray$trw <- as.data.frame(matrix(diff(limits),
dimnames = list(years[-1], xray$name)
))
}
xray
}
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.