Nothing
PlotHeatmap= function(toptable,colpal = colorRampPalette(c("blue","white","yellow")),key=FALSE,margins= c(7,7),na.color="grey",breaks= seq(-1,1,by =0.01),...){
col=colpal(200)
resi = tt2matrix(toptable,what="size")
heatmap.2(resi,trace="none",col= col,margins=margins,key=key,na.color = na.color,breaks = breaks,...)
}
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.