setMethod(scanBcf, "character",
function(file, index=file, ..., param=ScanBcfParam())
{
bcf <- open(BcfFile(file, index))
on.exit(close(bcf))
scanBcf(bcf, ..., param=param)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.