.binReader <-
function(con, n)
## read 'n' bytes from 'con', returning raw()
{
readBin(con, raw(), n)
}
setMethod(yield, "FastqFileReader", function(x, ...) x$yield(...))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.