Nothing
fwInfo <- function(x, options=NULL) {
fwp <- paste(fwPath(), 'gdalinfo', sep='')
x <- .getFilename(x)
outfile <- extension(rasterTmpFile(), '.txt')
fullcall <- paste(fwp, options, shQuote(x))
system(fullcall, intern=TRUE)
}
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.