TCGA Toolbox for R

TCGA.R

library(RCurl)
library(rjson)

TCGA.get <- function (uri) {
    getURI(uri)
}

TCGA.find <- function (query) {
    uri <- paste("http://agalpha.mathbiol.org/repositories/tcga?infer=true&query=", URLencode(query, reserved=TRUE), sep="")
    response <- fromJSON(getURI(uri, httpheader=c("Accept: application/sparql-results+json")))
    lapply(response$results$bindings, function (binding) {
        lapply(binding, function (solution) {
            solution$value
        })
    })
}

How to source: eval(parse(text=getURL("https://raw.github.com/gist/3954263/ea30be2ea67c51069ee80ac757d9f115f65923e7/TCGA.R"))) or source_gist("3954263") with devtools.