Nothing
FromTo <- function(X) {
if (length(X) > 2) {
X2 <- c(rep(X, each = 2)[-1], rep(X, each = 2)[1])
X3 <- matrix(X2, ncol = 2, byrow = TRUE)
} else {
X3 <- X
}
}
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.