Reads the purple.qc file.
Examples
x <- system.file("extdata/purple/purple.qc", package = "gpgr")
(q <- purple_qc_read(x))
#> $raw
#> # A tibble: 14 × 2
#> key value
#> <chr> <chr>
#> 1 QCStatus FAIL_CONTAMINATION
#> 2 Method NORMAL
#> 3 CopyNumberSegments 1428
#> 4 UnsupportedCopyNumberSegments 2
#> 5 Purity 0.8600
#> 6 AmberGender MALE
#> 7 CobaltGender MALE
#> 8 DeletedGenes 2
#> 9 Contamination 0.05
#> 10 GermlineAberrations NONE
#> 11 AmberMeanDepth 30
#> 12 LohPercent 0.1
#> 13 TincLevel 0.0
#> 14 ChimerismPercentage 0.0
#>
#> $summary
#> # A tibble: 9 × 4
#> n variable value details
#> <dbl> <chr> <glue> <glue>
#> 1 1 QC_Status FAIL_CONTAMINATION See 'Description'.
#> 2 13 Method NORMAL Fit method (NORMAL, HIGHL…
#> 3 14 CopyNumberSegments 1428 (Unsupported: 2) # of CN segments.
#> 4 2 Purity 0.8600
#> 5 17 Gender Amber: MALE; Cobalt: MALE
#> 6 14 DeletedGenes 2 # of homozygously deleted…
#> 7 15 Contamination 0.05 Rate of contamination in …
#> 8 16 GermlineAberrations NONE Can be one or more of: KL…
#> 9 18 AmberMeanDepth 30 Mean depth as determined …
#>