Skip to content

Instantly share code, notes, and snippets.

@msquatrito
msquatrito / App.R
Last active April 8, 2020 12:55
Shiny_oncoprint
library(ComplexHeatmap)
library(cgdsr)
library(shiny)
mycgds = CGDS("http://www.cbioportal.org/")
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectizeInput(inputId = "mutGene", label = h4("Gene(s)"), choices = c("EGFR", "PTEN", "TP53", "ATRX"), multiple = TRUE,