tabix header contains multiple dbtype slots

[alexg9010]

example:

library(methylKit)

file.list=system.file("extdata", "test1.myCpG.txt", package = "methylKit")
myobj=methRead( file.list,
                sample.id="test1",
                assembly="hg18",treatment=c(1,1,0,0),
                dbtype="tabix") 
readTabixHeader(getDBPath(myobj)[[1]])

> $dbtype
[1] "tabix"

$sample.ids
[1] "test1"

$assembly
[1] "hg18"

$context
[1] "CpG"

$resolution
[1] "base"

$num.records
[1] 1904

$dbtype
[1] "tabix"

$class
[1] "methylRawDB"