# the VCF file
vcf.fn <- seqExampleFileName("vcf")
# convert
seqVCF2GDS(vcf.fn, "tmp.gds")
# display
(f <- seqOpen("tmp.gds"))
seqClose(f)
# convert without the INFO fields
seqVCF2GDS(vcf.fn, "tmp.gds", info.import=character(0))
# display
(f <- seqOpen("tmp.gds"))
seqClose(f)
# convert without the INFO and FORMAT fields
seqVCF2GDS(vcf.fn, "tmp.gds",
info.import=character(0), fmt.import=character(0))
# display
(f <- seqOpen("tmp.gds"))
seqClose(f)
# delete the temporary file
unlink("tmp.gds")
Run the code above in your browser using DataLab