#' @import ConsensusClusterPlus RColorBrewer gplots plyr
#' @import ggplot2 jsonlite ape WGCNA
NULL
#' Open Cancer Variant Explorer (CVE) Shiny app
#'
#' @description The get.oncotator.anno retrieves annotation from the Oncotator database.
#' @param x A matrix containing the columns chromosome, start, end, reference_allele and observed_allele.
#' @examples
#' exCase <- data.frame(chr = rep(10, 3),
#' start = c("100894110", "100985376", "101137905"),
#' end = c("100894110", "100985376", "101137905"),
#' ref_allele = c("T", "C", "G"),
#' obs_allele = c("G", "A", "A"))
#' get.oncotator.anno(exCase)
#' @export
get.oncotator.anno <- function(x) {
urls <- paste0("http://portals.broadinstitute.org/oncotator/mutation/",
apply(x, 1L, function(y) paste0(paste0(y, collapse = "_"), "/")))
data.frame(t(sapply(seq_along(urls), function(i) fromJSON(urls[i]))))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.