setMethod(sortBam, "character",
function(file, destination, ...,
byQname=FALSE, maxMemory=512, byTag=NULL, nThreads=1L)
{
file <- .normalizePath(file)
destination <- .normalizePath(destination)
result <- .Call(.sort_bam, file, destination, byQname,
as.integer(maxMemory), byTag, as.integer(nThreads))
destination <- paste(result, "bam", sep=".")
if (!file.exists(destination)) {
msg <- sprintf("'sortBam' failed to create destination '%s'",
destination)
stop(msg)
}
destination
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.