R/toy_data.R

In Bioconductor/SplicingGraphs: Create, manipulate, visualize splicing graphs, and assign RNA-seq reads to them

### =========================================================================
### Little helpers for quick access to the toy data
### -------------------------------------------------------------------------

toy_genes_gff <- function()
{
    system.file("extdata", "toy_genes.gff3",
                package="SplicingGraphs", mustWork=TRUE)
}

toy_reads_sam <- function()
{
    system.file("extdata", "toy_reads.sam",
                package="SplicingGraphs", mustWork=TRUE)
}

.toy_reads_bam_cache <- new.env(parent=emptyenv())

toy_reads_bam <- function()
{
    toy_reads_bam <- try(get("toy_reads_bam", envir=.toy_reads_bam_cache,
                             inherits=FALSE), silent=TRUE)
    if (!is(toy_reads_bam, "try-error"))
        return(toy_reads_bam)
    toy_reads_sam <- toy_reads_sam()
    destination <- tempfile()
    toy_reads_bam <- asBam(toy_reads_sam, destination)
    ## Should never happen.
    if (toy_reads_bam != paste0(destination, ".bam"))
        stop("asBam() returned an unexpected path")
    assign("toy_reads_bam", toy_reads_bam, envir=.toy_reads_bam_cache)
    toy_reads_bam
}

toy_overlaps <- function()
{
    file <- system.file("extdata", "toy_overlaps.txt",
                        package="SplicingGraphs", mustWork=TRUE)
    read.table(file, header=TRUE, stringsAsFactors=FALSE)
}

### Displaying bug in Gviz (reported to Florian on Feb. 15, 2013). The first
### range has width 5 and therefore should cover 5 letters (including the 1st
### T). The last range has width 1 (not 0) and should be visible.
if (FALSE) {
  library(Biostrings)
  seq <- DNAStringSet(c(chrX="ACCGACTTCA"))
  library(GenomicRanges)
  gr <- GRanges("chrX", IRanges(3, width=5:1))
  library(Gviz) 
  plotTracks(list(GenomeAxisTrack(), SequenceTrack(seq), AnnotationTrack(gr)),
             from=1, to=9)
}