R/httr.R

In Bioconductor/Rhtsget: Interface to htsget retrieval from GA4GH

#' @importFrom httr GET stop_for_status content

.htsget <-
    function(query)
{
    response <- GET(query)
    stop_for_status(response)
    content(response, type="application/json")[["htsget"]]
}

#' @importFrom httr write_stream add_headers progress

.htsstream_writer <- function(bam) {
    write_stream(function(x) {
        writeBin(x, bam)
    })
}

.htsstream <-
    function(bam, query, headers)
{
    headers <- add_headers(unlist(headers))
    response <- GET(query, headers, .htsstream_writer(bam), progress())
    stop_for_status(response)
}