File: methods-scanVcfHeader.R

package info (click to toggle)
r-bioc-variantannotation 1.20.2-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 2,492 kB
  • ctags: 114
  • sloc: ansic: 1,370; sh: 4; makefile: 2
file content (13 lines) | stat: -rw-r--r-- 306 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
setMethod(scanVcfHeader, "character",
    function(file, ...) 
{
    hdr <- scanBcfHeader(file, ...)[[1]]
    VCFHeader(reference=hdr$Reference, samples=hdr$Sample, 
              header=hdr$Header) 
})

setMethod(scanVcfHeader, "TabixFile",
    function(file, ...)
{
    scanVcfHeader(path(file), ...)
})