server.r

In yiqiutang/genomeRegionsInfo: Generating basic Statistics information graphs grouped by Sample or Chromosome for Genome data

library(ggplot2)
library(genomeRegionsInfo)
library(ACME)

shinyServer(function(input, output) {
  
  #Data introduction
  
  output$plot <-  renderPlot({   
    
    datdir <- system.file('extdata',package='ACME')
    fnames <- dir(datdir)
    example.agff <- read.resultsGFF(fnames,path=datdir)
    calc <- do.aGFF.calc(example.agff,window=1000,thresh=0.95)
    Regions <- findRegions(calc)
    RegionsInfoPlot(Regions, c("Sample","Chromosome")[as.integer(input$group)],
                    c("Mean","Median")[as.integer(input$stat)])
    
  })
  
  
})