Nothing
# For combining binary template lists together
# Modified 2013 JUNE 13
combineBinTemplates <-
function(...) {
temps <- list(...)
x <- NULL
for(i in 1:length(temps)) {
x <- c(x, temps[[i]]@templates)
}
templates <- new('binTemplateList', templates=x)
while(any(dups <- duplicated(names(templates@templates)))) {
warning("Found identical template names: ", paste(names(templates@templates)[dups], collapse=", "), ". Adding suffix.")
names(templates@templates)[dups] <- paste0(names(templates@templates)[dups], ".2")
}
return(templates)
}
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.