Nothing
`sub.ID` <-
function(x) {
strings <- rownames(x[[1]])
id <- sub("^[A-Za-z]*?-[0-9]*?-[0-9]*?-0","",strings)
ident <- sub("-", "", id)
rownames (x[[1]]) <- ident
rownames (x[[2]]) <- ident
rownames (x[[3]]) <- ident
return (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.