Description Usage Arguments Value Author(s) Examples
Download bigWig files from a trackDb file.
1 2 3 | downloadBigWigs(trackDb.txt,
out.dir, verbose = getOption("PeakSegPipeline.verbose",
1))
|
trackDb.txt |
trackDb text file. |
out.dir |
Output directory. |
verbose |
Print messages? |
Nothing.
Toby Dylan Hocking
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | ## Create a trackDb.txt file with links to a few small bigWig files on GitHub.
bigWig.part.vec <- c(
"Input/MS010302",
"bcell/MS010302",
"Input/MS002201",
"kidney/MS002201")
repos.url <- "https://raw.githubusercontent.com/tdhock/input-test-data/master/"
track.lines <- sprintf(
"track %s\nbigDataUrl %s%s.bigwig\n",
sub("/", "_", bigWig.part.vec),
repos.url, bigWig.part.vec)
track.dir <- tempfile()
dir.create(track.dir)
trackDb.txt <- file.path(track.dir, "trackDb.txt")
cat(track.lines, sep="\n")
writeLines(track.lines, trackDb.txt)
## Download the bigWig files mentioned in trackDb.txt
if(interactive()){
downloadBigWigs(trackDb.txt, track.dir, verbose=1)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.