Nothing
image.raw <- function(x, col = c("white", "red", "blue", "green",
"black", "cyan", "yellow", "magenta"), ...)
{
stopifnot(is.raw(x))
foo <- unpackPotts(x)
bar <- seq(1:nrow(foo))
baz <- seq(1:ncol(foo))
qux <- unique(as.vector(foo))
if (length(qux) > length(col)) stop("not enough colors specified")
image(bar, baz, foo, axes = FALSE, asp = 1, xlab = "", ylab = "",
col = col, ...)
}
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.