Nothing
writePng <- function (data, fileName, aspectRatio = 1)
{
if (length(dim(data)) == 3)
{
data <- data[,dim(data)[2]:1,]
data <- aperm(data, c(2,1,3))
}
else if (length(dim(data)) == 2)
data <- t(data[,dim(data)[2]:1])
loder::writePng(structure(data,range=c(0,1),asp=aspectRatio), ensureFileSuffix(fileName,"png"))
}
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.