VariantTrack-class | R Documentation |
VariantTrack
creates an IGV
track for VCF (variant call format) objects, either local or at a remote url
VariantTrack(
trackName,
vcf,
trackHeight = 50,
anchorColor = "pink",
homvarColor = "rgb(17,248,254)",
hetvarColor = "rgb(34,12,253)",
homrefColor = "rgb(200,200,200)",
displayMode = "EXPANDED",
visibilityWindow = 1e+05
)
trackName |
A character string, used as track label by igv, we recommend unique names per track. |
vcf |
A VCF object from the VariantAnnotation package, or a list(url=x, index=y) pointing to a vcf file |
trackHeight |
track height, typically in range 20 (for annotations) and up to 1000 (for large sample vcf files) |
anchorColor |
CSS color name (e.g., "red" or "#FF0000") for the "anchoring" graphical segment in the track |
homvarColor |
CSS color name for homozygous variant samples, rgb(17,248,254) by default (~turquoise) |
hetvarColor |
CSS color name for heterzygous variant samples, rgb(34,12,253) by default (~royalBlue) |
homrefColor |
CSS color names for homozygous reference samples, rgb(200,200,200) by default (~lightGray) |
displayMode |
"COLLAPSED", "EXPANDED", or "SQUISHED" |
visibilityWindow |
Maximum window size in base pairs for which indexed annotations or variants are displayed. Defaults: 1 MB for variants, whole chromosome for other track types. |
Detailed description goes here
A VariantTrack object
#----------------------------
# first, from a local file
#----------------------------
f <- system.file("extdata", "chr22.vcf.gz", package="VariantAnnotation")
roi <- GRanges(seqnames="22", ranges=IRanges(start=c(50301422, 50989541),
end=c(50312106, 51001328),
names=c("gene_79087", "gene_644186")))
vcf.sub <- VariantAnnotation::readVcf(f, "hg19", param=roi)
track.local <- VariantTrack("chr22-tiny", vcf.sub)
#----------------------------
# now try a url track
#----------------------------
data.url <- sprintf("%s/%s", "https://s3.amazonaws.com/1000genomes/release/20130502",
"ALL.wgs.phase3_shapeit2_mvncall_integrated_v5b.20130502.sites.vcf.gz")
index.url <- sprintf("%s.tbi", data.url)
url <- list(data=data.url, index=index.url)
track.url <- VariantTrack("1kg", url)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.