Nothing
accumulate.warnings <- function(warnings.list){
#Formats the warnings coming back from a parallel processor run
if(length(warnings.list) > 0){
warnings <- warnings.list[[1]]
for(i in seq(along = warnings.list[-1])){
temp <- warnings.list[[i]]$message
for(j in seq(along = temp)){
warnings <- message.handler(warnings, temp[[j]])
}
}
return(warnings)
}else{
return(list())
}
}
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.