Nothing
setMethod(idxstatsBam, "character",
function(file, index=file, ...)
{
index <- .normalizePath(index)
bam <- open(BamFile(file, index), "rb")
on.exit(close(bam))
idxstatsBam(bam, ...)
})
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.