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