Get the read totals from one or more FASTQC reports
readTotals(x)
A tibble
with the columns Filename
and
Total_Sequences
# Get the files included with the package
packageDir <- system.file("extdata", package = "ngsReports")
fl <- list.files(packageDir, pattern = "fastqc.zip", full.names = TRUE)
# Load the FASTQC data as a FastqcDataList object
fdl <- FastqcDataList(fl)
# Print the read totals
readTotals(fdl)
#> # A tibble: 6 × 2
#> Filename Total_Sequences
#> <chr> <int>
#> 1 ATTG_R1.fastq 24978
#> 2 ATTG_R2.fastq 24978
#> 3 CCGC_R1.fastq 22269
#> 4 CCGC_R2.fastq 22269
#> 5 GACC_R1.fastq 10287
#> 6 GACC_R2.fastq 10287