.STRAND_LEVELS <- c("+", "-", "*")
.PILEUP_NUCLEOTIDE_LEVELS <- c("A", "C", "G", "T", "N", "=", "-", "+")
.onLoad <-
function(libname, pkgname)
{
if (!identical(levels(strand()), .STRAND_LEVELS))
stop("internal: 'levels(strand())' not consistent with Rsamtools")
.Call(.bamfile_init)
.Call(.bcffile_init)
.Call(.fafile_init)
.Call(.tabixfile_init)
.Call(.bambuffer_init)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.