library(VariantAnnotation)
fl <- system.file("extdata", "chr22.vcf.gz", package="VariantAnnotation")
vcf <- readVcf(fl, "hg19")
vcf
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.