setMethod(idxstatsBam, "character",
function(file, index=file, ...)
{
index <- .normalizePath(index)
bam <- open(BamFile(file, index), "rb")
on.exit(close(bam))
idxstatsBam(bam, ...)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.