In Marlin-Na/TnT: Interactive Visualization for Genomic Features

expose_all <- function (package) {
    attachname <- paste0(package, "_all")
    while (attachname %in% search()) detach(attachname, character.only = TRUE)
    pkgns <- loadNamespace(package)
    attach(pkgns, name = attachname)
    invisible(pkgns)
}
library(GenomicFeatures)
suppressMessages(expose_all("TnT"))

Track Wakeup

gr <- GRanges("chr12", IRanges(1:4 * 10 + 1, width = 5))
mcols(gr) <- data.frame(check.names = FALSE,
    Location = "",
    Chromosome = 12, Start = start(gr), End = end(gr),
    Description = "",
    "What's for?" = "Unknown"
)
track <- BlockTrack(gr)
w.track <- wakeupTrack(track)

trackSpec(track)
trackSpec(w.track)

track@Display
w.track@Display

track$color
w.track$color

compileTrack(track)

TnTBoard(list(track), view.range = GRanges("chr12", IRanges(1, 100)))

TODO: CompositeTrack Wakeup

Misc-PinTrack-Compilation

ptrack <- PinTrack(GRanges("chr21", IRanges(1:2, width = 1), value = runif(2)))
compileTrack(ptrack)

Session Info

sessionInfo()

Marlin-Na/TnT documentation built on Sept. 15, 2024, 5:27 a.m.