Nothing
plotHeatmap <-
function(data, type, names, ...){
if(missing(data) || missing(type))
stop("data and/or type is missing.")
# Take only the first column of data if it is multi columned
if(class(data) == "data.frame" || class(data) == "matrix")
data <- data[,1]
# Turn into a single matrix
mat <- vec2mat(data, type)
if(missing(names))
names <- 1:ncol(mat)
colnames(mat) <- names
rownames(mat) <- names
colfunc <- grDevices::colorRampPalette(c("blue", "grey"))
gplots::heatmap.2(mat, symm=TRUE, Rowv=NA, dendrogram="none", trace="none", col=colfunc(10), ...)
}
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.