Nothing
"writeTiff" <-
function(pixmap, fn) {
if(class(pixmap)[1] == "pixmapRGB"){
.Call("C_writeTiff", pixmap@red, pixmap@green, pixmap@blue, fn)
} else if(class(pixmap)[1] == "matrix") {
pixmap = newPixmapRGB(pixmap, pixmap, pixmap);
.Call("C_writeTiff", pixmap@red, pixmap@green, pixmap@blue, fn)
} else {
stop(paste("writeTiff expects a pixmapRGB or matrix, got ", class(pixmap)))
}
gc();
return();
}
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.