In sagrudd/nanopoRe: Accessory Methods for the Analysis of Oxford Nanopore Technologies DNA Sequence Data

knitr::opts_chunk$set(
    collapse = TRUE,
    comment = "#>"
)
library(nanopoRe)
library(knitr)
library(emojifont)
init()
setOutputFormat("file")

seqsumFile <- system.file("extdata", "sequencing_summary.txt.bz2", 
    package = "nanopoRe")
barcodeFile <- system.file("extdata", "barcoding_summary.txt.bz2", 
    package = "nanopoRe")

importSequencingSummary(seqsumFile)
SequencingSummaryBarcodeMerge(barcodeFile=barcodeFile)

include_graphics( SequenceSummaryExecutiveSummary() )

include_graphics( SequencingSummaryPassGauge() )

include_graphics( SequencingSummaryChannelActivity(showcount=TRUE) )

include_graphics( SequenceSummaryBasicInfoPlot() )

include_graphics( SequencingSummaryWeightedReadLength() )

include_graphics( SequencingSummaryReadLengthHistogram() )

include_graphics( SequencingSummaryReadQualityHistogram() )

include_graphics( SequencingSummaryReadLengthQualityDensity(binFilter=3) )

include_graphics( SequencingSummaryTemporalThroughput() )

include_graphics( SequencingSummaryCumulativeBases() )

include_graphics( SequencingSummaryCumulativeReads() )

include_graphics( SequencingSummarySpeedPlot() )

include_graphics( SequencingSummaryActiveChannelPlot() )

if (SequencingSummaryHasBarcodeInfo()) {
    include_graphics( SequenceSummaryBarcodeInfoGraphic() )
}

if (SequencingSummaryHasBarcodeInfo()) {
    SequenceSummaryBarcodeTable()
}

if (SequencingSummaryHasBarcodeInfo()) {
    include_graphics( SequenceSummaryBarcodeHistogram() )
}

sagrudd/nanopoRe documentation built on June 7, 2020, 10:20 p.m.