Nothing
make.multicolor.title <- function(main, z, pretitle, posttitle, mainminmax_minmax, col_min, col_max, cex.main=par()$cex.main) {
if(is.null(main)) {
title_text <- c(pretitle)
title_color <- c(1)
if (mainminmax_minmax) {
title_text <- c(title_text, '[','min', ', ','max', '] = ')
title_color <- c(title_color,1, col_min,1, col_max,1)
}
title_text <- c(title_text, "[",signif(min(z),3),', ',signif(max(z),3),']',posttitle)
title_color <- c(title_color,1, 1, 1, 1, 1, 1)
multicolor.title(title_text,title_color, cex.main=cex.main)
} else {
multicolor.title(main, 1, cex.main=cex.main)
}
}
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.