setMethod(scanBcfHeader, "character",
function(file, ...)
{
Map(function(file, mode) {
bf <- open(BcfFile(file, character(0), ...))
on.exit(close(bf))
scanBcfHeader(bf)
}, file, ...)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.