Example
if (!"Rhtsget" %in% rownames(installed.packages()))
BiocManager::install("Bioconductor/Rhtsget")
library(Rhtsget)
gr <- GenomicRanges::GRanges("chr12:111766922-111817529")
sample_id <- "platinum/NA12878"
endpoint <- "https://htsnexus.rnd.dnanex.us/v1"
fl <- tempfile(fileext=".bam")
bam <- htsget_reads(gr, sample_id, endpoint, fl)
Rsamtools::countBam(bam)
Two endpoints
Note from the specification:
We use the following pan-GA4GH standards: - 0 start, half open coordinates - The structuring of POST inputs, redirects and other non-reads data will be protobuf3 compatible JSON
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.