R/read_picard.R

Defines functions read_picard

read_picard <- function(path,
                        verbose=TRUE){
    
    messager("Reading picard report.",v=verbose)
    dat <- data.table::fread(path,
                              skip = "LIBRARY",
                              fill = TRUE,
                              nrows = 1)
    dat[,path:=path]
    return(dat)
}
serachoi1230/EpiCompare documentation built on Jan. 30, 2024, 11:37 a.m.