inst/shiny-scripts/app.R

In cheejus2/Intron_Vis: visualization of introns in RNA-seq data

library(shiny)

ui <- fluidPage(headerPanel('Intron Visualization'), 
                mainPanel(plotOutput('plot')))

server <- function(input, output) {
  chr <- intron_tracker("chr17")
  p <- organismDB_mod("BRCA1", "NBR1", chr)
  output$plot <- p
}

shinyApp(ui = ui, server = server)